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1. PROGRAM TITLE 

Multi Media Diagnostic Generator (MDG) 

06-177 FOl 16 Bit Processors 
06-177 F02 32 Bit Processors 



2. PURPOSE OF THE PROGRAM 

The MDG provides the facilities necessary to build and maintain 
Perkin-Elmer diagnostics on Multi Media. The need for a paper tape 
reader is eliminated. Programs can be loaded from the magnetic 
media using the Multi Media Diagnostic Loader (06-176 FOl or F02) . 

These programs support the following devices: 

800 BPI Mag Tape 
1600 BPI Mag Tape 
INTERTAPE (cassette) 
13.5 MB Disc 
10 MB Disc 
67 MB Disc 
256 MB Disc 
NOTE: The 13.5 MB disc is only supported on 3 2-bit systems. 

3. MINIMUM HARDWARE REQUIRED 

Processor - Any 16 bit with the Basic 7/16 instruction set. 
- Any 3 2 Bit 



Memory 



Console 

Loading 
Device 



Output 
Device 



Input 
Device 



- 16 bit processor - 32KB 
-32 bit processor - 40KB 

- TTY or CRT or Carousel 30 or Carousel 300, on 
CLI or PASLA or STC. 

- HSPTR/P or 

- TTY 

- Used to load some diagnostics for the CREATE mode. 



- Mag Tape w/wo SELCH 

- Cassette 

- Disc and SELCH 

- Used as the magnetic output device for the CREATE 
and COPY functions. 



- Mag Tape w/wo SELCH 

- Cassette 

- Disc and SELCH 

- Used as the input device for the COPY function. 
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4. REQUIREMENTS OF THE MDG SYSTEM 
I Manually enter the X'50' Sequence shown as followed, into memory; 



I 



X 


30' 





X 


32' 





X 


34' 





X 


36' 


X'50' 


X 


50' 


X'DSOO' 


X 


52' 


X'OOCF' 


X 


54' 


X'4300' 


X 


56' 


X'0080' 



5. LOADING PROCEDURES 

5.1 Tape Format 

The MDG is supported by two separate Relocatable programs; one for 
32 bit processors, and one for 16 bit processors. 

16 Bit 06-177 FOl M17 
32 Bit 06-177 F02 M17 

The Location start + X'lO' contains the console device code. 
Refer to Appendix C for details and devices supported. 



I Execute the MDG at its start address. Observe the following title 
■ is printed on the console device. 



MDG 
* 



6. OPERATOR COMMAND/OPTION INFORMATION 

6.1 Command/Option Input Structure 

An asterisk {*) is output to the console device to indicate that 
the program is awaiting operator input. All options must be typed 
in from the Console, followed by a space and the desired arguments 
separated by commas. A carriage return (CR) is issued to terTiinato 
every command/option input. An invalid command/option or value 
will cause a (?) followed by a carriage return (CR) , line feed 
(LF) , and an asterisk (*) to occur. If, during entry of the op- 
tion, an error is made, it can be handled in one of two ways. 

The hash mark (#) can be input to delete the entire line. This 
will cause a carriage return (CR) , and line feed (LF) , asterisk 
(*) to be output. The left arrow (< — ) or BS can be input to 
delete the previous caracters, or a string of characters can be 
deleted by inputting a {<—) left arrovz or BS for each character 
to be deleted. 
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6.2 Operator Commands/Options 

The list of operator Commands/Options, 

OUTDEV RW - rewind 

INDEV FF - forward file 

LIMITS BF - backward file 

SEQNAM EOV - write EOV 

CREATE INIT 
COPY 



6.2.1 OUTDEV (Select Output Device) . This command spe- 
cifies the device addresses associated with the output device. 
This option is required before most commands can be honored. 

Format: OUTDEV n,aa , ss ,cc (CR) 

where: n-1 - 9 track mag tape 
800 or 1600 BPI 

2 - INTERTAPE 

3 - 13.5 MB Disc 

4 - 10 MB Disc 

5 - 67 MB Disc 

6 - 256 MB Disc 

NOTE 
Devices 3, 4, 5, and 6 must have SELCH specified. 

aa - Device address 

ss - SELCH address if device (aa) 
is on a ; SELCH If no selch 
enter carriage return (CR) . 

cc - Controller address if n is greater 
than 2. If no controller enter 
carriage return (CR) . 



Examples: Assign a Mag Tape at address X'95' no SELCH 
OUTDEV 1,95(CR) 
Assign the same Mag Tape but on SELCH X'FO'. 
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OUTDEV l,95,FO(CR) 

Assign INTERTAPE device X'45'. 

OUTDEV 2,45 (CR) 

Assign a 13.5 MB disc-device X'FC controller 
X'FB', and SELCH X'FO'. 

OUTDEV 3,FC,F0,FB(CR) 

Assign a fixed platter of 10MB disc-device 
address X'C9' - controller address X'BB' - 
as SELCH address X'FO'. 

OUTDEV 4,C9,F0,B8 (CR) 

6.2.2 INDEV (Select Input device) . This command spe- 
cifies the device addresses associated with the input device. 
The option is used for the COPY function only. 

Format: INDEV n,aa, ss,cc (CR) 

where: n,aa,ss,cc are defined as in OUTDEV. 

Examples: Assign a Mag Tape at address X'85' no SELCH 

INDEV 1,85 (CR) 

Same Mag Tape on SELCH X'FO' 

INDEV 1,85,F0 (CR) 

Assign INTERTAPE at address X'55' 

INDEV 2,55 (CR) 

Assign the removable platter of a 10 MB 
disc-device address X'C8' - controller X'B8' 
and SELCH X'F2' . 

INDEV 4,C8,F2,B8 (CR) 

6.2.3 INIT (Initiali ze the Media) . The INIT command 
will prepare a virgin media for use. On a mag tape, it will 
write the boot loader. On a disc it will initialize the direc- 
tory and verify the integrity of cylinders eight and nine. This 
command also establishes the first EOV needed by the CREATE and 
COPY functions. 

To perform initialization observe the following: 

Mag Tape or Must be at "Load Point" 
Cassette "On-Line" NOT "Write 

Protected" 

Disc Must be "Ready" and NOT 

"Write Protected" 
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with the media in the above condition, enter the INIT command. 
At job completion, EOJ will be printed. The media is now ready 
for use by CREATE or COPY. 

Example: *INIT(CR) 
EOJ 
* 

6.2.4 LIMITS (Select Low, High Program Addresses) . The 
LIMITS option specifies the low and high boundaries of the core 
image to be copied. It is required only when the CREATE command 
is used. 

Format: LIMITS 11111 ,hhhhh (CR) 

where *11111 is the 5 digit LOW memory address. 

*hhhhh is the 5 digit HIGH memory address. 

*For MDG 16 Bit (06-177F01) , this is a 4 
digit address only. 

Example: Set the limits for a program with starting address 
of X'OAOO' and ending address of X'27C5'. 

LIMITS A00,27C5 (CR) 

6.2.5 SEQNAM (Assign a sequence number, name) . This 
option is used to assign a unique three digit sequence number, 
the program Q6-# and revision, and the program name. The sequence 
number is used for program identification on the media, and is 
the only means for identification at load time. Multiple defined 
sequence numbers may cause errors. This option is set to zero 
after completion of a CREATE. 

Format: SEQNAM sss,ppppp[ -R] ,nnnnn. . . (CR) 

where sss is a three digit sequence number. 

PPPPP is the combination of the program 06# 
and revision level. Its structure is 
the three digit 06#, followed by the 
two digit revision #. This field for 
program 06-122R03 would be 12203. 

nnnnn... is a 30 character free format de- 
scription field. A program's func- 
tional variation and name should be 
included here. 

[ .R] is the optional extension field re- 
presenting the number of change page 
packages installed; this field will 
be, zeroed when the program is revised; if 
the field is zero, it will not be 
printed when the media is listed. 
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Example: For the 06-156F01 the series 32 Memory Test Part 1. 
SEQNAM 03A, 15600, FOl MEMORY TEST PART 1 (CR) 

6.2.6 CREATE (Copy a memory resident program to a media) . 
The CREATE command writes memory between the low and high addresses 
specified in the LIMITS option to the OUTDEV media as a core image. 

Core image is absolute, and when reloaded, occupies the same memo- 
ry locations as at the time of the CREATE. The only restraint 
on the CREATE function is that 16 and 32 bit loader format tapes 
must be CREATED on their respective processors. When the CREATE 
terminates, "EOJ" is printed on the console and the SEQNAM option 
is set to zero. 

Format: CREATE (CR) 

CREATE writes an EOV indicator after every program 
written. This EOV indicator is removed (by the pro- 
gram) before the next program is written. 

Example: *CREATE 
EOJ 



6.2.7 COPY (Copy a program from an existing media to 
another) . The COPY command generates a core image output media. 
However, it is not generated from a memory resident program, but 
by transferring programs from a previously CREATED media, INDEV 
to OUTDEV. The COPY function has no restraints and will copy 
any previously made media to any output media. When COPY termin- 
ates, "EOJ" is printed on the console. If the COPY terminates 
at EOV, then "EOV" "EOJ" is printed. While COPY can be used to 
copy all or part of the media, the user must maintain the proper 
media format. See Appendix B. 

During COPY, the sequence number of the program being copied is 
shown on the display panel. 

Format: COPY nnn (CR) 

where nnn is the sequence # where the COPY is to 
terminate. If it is desired to copy to EOV, the 
following format is used: 

COPY EOV(CR) 
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Example: Copy all the programs up to sequence number 126 
from INDEV to OUTDEV. 

*COPY 126 (CR) 

EOJ 
* 

Copy all the program up to sequence number 92C 

*COPY 92C(CR) 

EOV 

EOJ 
* 

(The above printout indicates that 92C was not 
found on the INDEV . ) 

NOTE 

If no I/O errors occur, all programs from the 
present program to EOV or end termination have 
been copied successfully. 

Copy to EOV 

*COPY EOV(CR) 

EOV 

EOJ 



6.2.8 RW (REWIND) ♦ The RW command will rewind the spe- 
cified device to the beginning of the media. This command must be 
used on both Mag Tape and Disc. The Mag Tape returns to BOT (be- 
ginning of tape) or the pointers for the Disc are set to zero. 
When the RW is complete, "EOJ" is printed on the console. 

Format: RW x (CR) 

where x=0 (letter O) for the rewind of the media 
associated with OUTDEV. 

X = I (letter I) for the rewind of the media associated 
with INDEV. 

Example: *RW 0(CR) 
EOJ 

*RW I (CR) 
EOJ 
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6.2.9 FF (FORWARD FILES) . The FF command will for- 
ward files. The command terminates when the desired file is found, 
or EOV is detected. If the file is located, "EOJ" is printed on 
the console. If EOV is detected, "EOV" "EOJ" is printed. 



Format: FF x,sss(CR) 
where x 



Example; 



(letter O) for the media associated with 
OUTDEV, and I (letter I) for the media as- 
sociated with INDEV 



XXX is the three digit sequence # of the pro- 
gram up to which the pointer is moved, or 
the tape is positioned. 



*FF 0,027 (CR) 

EOJ 
* 

*FF 1,196 (CR) 

EOV 

EOJ 
* 

*FF 0,EOV(CR) 

EOV 

EOJ 



(number found) 
(number not found) 

(forward to EOV) 



I 6.2.10 BF (BACKWARD FILES) . The BF command will 

back up files. The command terminates when the desired file is 
found or beginning of volume (BOV) is detected. If the file is 
located, "EOJ" is printed. If the file is not found, "BOV" "EOJ" 
is printed. 

Format: BF x,sss(CR) 

where x - O (letter O) for the OUTDEV media, and 
I (letter I) for the INDEV media. 



Examples : 



xxx is the three digit sequence number ot 
the program being sought. 



*BF 0,128 (CR) 

EOJ 
* 

*BF 1,007 (CR) 

EOV 

EOJ 
* 



(number found) 
(number not found) 
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6.2.11 EOV (WRITE EOV) . This command will write END 
OF VOLUME on the media. The command will be accepted only when 
the position of the media is known. This command is NOT for 
general usage. It's primary purpose is in error recovery and 
will be discussed further in section 8. 

Format: EOV(CR) 

Example: *EOV(CR) 
EOJ 

7. OPERATING PROCEDURES 

This section gives instructions; for performing MDG operations. 
The following procedures are discussed. 

1. Device Assignments 

2. Media INITialization 

3. CREATE - how to use the CREATE function 

4. COPY - to transfer the programs to another media. 

An example of the commands necessary to perform the above func- 
tions will follow. For these €;xamples, mag tape address X'85' 
on SELCH X'FO' will be the OUTDEV, Throughout these examples, 
refer to Section 6 for details on Option/Commands information. 

7.1 Device Assignments 

Device assignments must be mad€; as follows. Refer to Section 6. 

OUTDEV - if the CREATE function is to be used. 

INDEV and OUTDEV - if the COPY function is to be used. 

Example : mdG 

*OUTDEV l,85,FO (CR) 
* INDEV 2,45(CR) 

7.2 Media Initialization 

If the media to be used on OUTDEV is a virgin media, it must 
be initialized. Initialization establishes known information 
on the media and provides the first EOV indicator. 

Example: MDG 

OUTDEV l,85,FO(CR) 

*INIT 

EOJ 

* 
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7.3 Create 
To CREATE on a media, the following steps should be followed: 

1. Start MDG at its bias address. 

2. Assign OUTDEV as outlined in Section 6.2.1. 

3. FF (Forward Files) the media to EOV. See Section 6.2.9 
if the media is a virgin media, it must be INITialized 
instead of FF. See Section 6.2.3. 

4. Load the program to be put on the media. Load it as 
instructed for the program. 

NOTE: When building a new media, the first two pro- 
grams written must be the 16 bit and 3 2 bit 
Multi-Media Diagnostic Loaders. Refer to 
Appendix B. 

5. Start the MDG at its bias address. 

6. Enter the LIMITS option. See Section 6.2.4. 

7. Enter the SEQNAM option. See Section 6.2.5. 

8. Enter the CREATE command. See Section 6.2.6. The pro- 
gram will be written to the OUTDEV media. When the 
CREATE is complete EOJ is printed on the console. 

9. To write another program on the media, return to 
step '4'. When all programs are written, rewind the 
media. Use the RW command as directed in 6.2.8. Re- 
move the media. 

Example: To put the desired Multi-Media Diagnostic Loaders 
(16 and 32 Bit) on the media. The loaders must 
be the first programs on all media and should 
immediately follow INITialization. The number on 
the right indicates the procedure step being per- 
formed . 

Load the 16 Bit MDB on a 16 Bit processor or 
7/32 in HW mode. If building for use on onl y one 
type of processor, refer to Appendix B. 

2. *OUTDEV l,85,FO(CR) 

3. *INIT(CR) 

EOJ 
* 

4. Load the 16 bit MDL. 

5. MDG 

6. *LIMITS 4000, 4B4D 

7. *SEQNAM 001, 17600, FOl MULTI MEDIA DI.LDR 16BIT (CR) 

8. *CREATE(CR) 
EOJ 

9. *RW 0(CR) 
EOJ 

* 

(Remove Media) 
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Load the MDG on a 32 Bit machine and mount the media removed 
above . 

1 . MDG 

2. *OUTDEV 1,S5,F0(CR) 

3. *FF 0,EOV(CR) 

4. Load the 32 bit MDL. 

5. MDG 

6. *LIMITS 6000,6C4E(CR) 

7. *SEQNAM 002, 17600, F02 MULTI MEDIA DI LDR. 32 BIT (QR) 

8. *CREATE(CR) 
EOJ 

9. *RW 0(CR) 

EOJ 
* 

(Remove Media) 

Example: For this example the Disc Test/Formatter Program 
(06-122 R03) will be put on the media. The exam- 
ple media has been INITialized as in Section 6.2.3 
and the 16 bit MDL has been prepared as shown 
in the previous example. The number on the left 
indicates the procedure step being performed. 

1. MDG 

2. *OUTDEV l,85,FO(CR) 

3. *FF 0,EOV(CR) 

EOJ 
* 

4. (Load the Disc Test/Formatter program using the 
Relocatable or General Loader) Relocation address - 
X'lOO' . 

5. MDG 

6. *LIMITS 100,22CE(CR) 

7. *SEC)NAM 02C, 12203, DISC TEST FORMAT/PROGRAM (CR) 

8. *CREATE(CR) 
EOJ 

9. *RW 0(CR) 

EOJ 
* 

(Remove Media) 

7 . 4 Copy 

When using COPY be sure the required media format is maintained. 
See Appendix B. Follow the steps below to use COPY. 

1. Start MDG at its bias. 

2. Assign OUTDEV as in Section 6.2.1. 

3. Assign INDEV as in Section 6.2.2. 

4. FF (Forward Files) the INDEV to the desired starting 
position. See Section 6.2.9. 



B06-177M95A15 R02 6/79 11 



5. FF (Forward Files) the OUTDEV media to EOV. See 
Section 6.2.9. If the OUTDEV media is a virgin media, 

it must be INITialized instead of FF. See Section 6.2.3, 

6. Enter the COPY command. See Section 6.2.7. The en- 
tire media from the current position (determined in 
step 5) to EOV can be copied, or individual programs 
or groups of programs can be selectively copied. 

7. Rewind both medias. 

Examples: To COPY the entire media to a virgin media, the 

INDEV is a Disc-device X'C8' - Controller X'B8' - 
SELCH X'FO' . 

1. MDG 

2. *OUTDEV l,85,FO(CR) 

3. * INDEV 4,C8,FO,B8(CR) 

4. *FF I,001(CR) 
EOJ 

5. *INIT(CR) 
EOJ 

6. *COPY EOV(CR) During the copy, the sequence num- 
EOV bers of the program are displayed 
EOJ on the display panel. 

7. *RW 0(CR) 
EOJ 

*RW I (CR) 

EOJ 
* 

Example: Copy only one program #27 to OUTDEV from INDEV. 
Same devices as above. 



1. 


MDG 


2. 


*OUTDEV l,85,FO(CR) 


3. 


*INDEV 4,C8,FO,B8(CR) 


4. 


*FF 1,027 (CR) 




EOJ 


5. 


*FF 0,EOV(CR) 




EOJ 


6. 


*COPY 028 (CR) 




EOJ 


7. 


*RW 0(CR) 




EOJ 




*RW I (CR) 




EOJ 




* 
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8. ERRORS/ERROR RECOVERY 

When Errors occur in the MDG system, a message is logged on the 
console device. These errors appear in two formats: 

1. ERROR xxyy 
* 

2. ERROR xxyy 
JOB ABORTED 

This section gives a list of errors and prescribed error re- 
covery. 

8.1 Errors 

The error formats of MDG are broken-down as follows: 

ERROR xxyy 

where xx - the device address if the error is device related 
or is zero if it is not a device oriented error. 

yy - the Hex error code. Table 1 gives the com- 
plete list of codes. 

8 . 2 Error Recovery 

When error format (1) is output (see Section 8) the condition 
of the media (s) remains unchanged as no I/O operation was in 
progress. No recovery is required except to correct the error 
condition. However, if error format (2) is output (see Section 
8), the condition of the media(s) is unknown. Recovery in this 
case is up to the operator. Follow these guidelines in error 
recovery of format (2) . 

1. Always BF (Backward Files) the media (s) to the last 
known good program on the media. If a COPY was in 
progress, BF (Backward Files) both medias. BF to 
the program number shown on the display panel. 

NO'I'^E 

If a Disc is the OUTDEV in a COPY operation 
the BF command may yield the "EOV" "EOJ" re- 
sponse. If this occurs, BF the INDEV and 
continue to step 2. 

2. If the error was other than X'E3', correct the error 
condition and restart the operation. 

3. If the error is X'E3', the media must be terminated 
(EOV written) . After step 1 above is complete, 
enter the EOV command. The media can no longer be 
used, unless the media error can be corrected or 

' skipped over. 
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If the error is X'D3', the media must be terminated 
(EOV written). After step 1 above is complete, er~ 
ter the EOV command. If the media is a mag tape, it 
is full and can no longer be used. If it is a cas- 
sette, one side is full. It can be flipped over 
and continued on the other side. 

NOTE 

For convenience, a cassette must have both the 

16 bit and 32 bit MMDL's on both sides. See Appendix B, 



TABLE 1 
ERROR CODES 
YY CODE # MEANING 



EO 



KB 



OUTDEV Media not initialized, or Media at beginning 
of volume (BOV) 



El Tape is not at BOT when INIT command issued 

E2 Disc Pack Unusable under the MDG; cylinger or 1 

has a defective sector 

E3 Unrecoverable Read/Write error. 

E4 OUTDEV not assigned. 

E5 INDEV not assigned. 

E6 False sync from an address assigned in OUTDEV. 

E7 False sync from and address assigned in INDEV. 

E8 Disc Status Error; Seek Incomplete or Write Check 

or Write Protect. 

E9 Device Write Protected. 

EA Wrong Disc Type specified in OUTDEV 



Invalid conditions for COPY; FILE marks found 
when not expected or disc "locked" or no sequence 
match found . 



EC Disc Pack Full 

ED Directory Full 



14 
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TABLE 1 
ERROR CODES (Continued) 



YY CODE # MEANING 



EE "DU" from the device assigned in OUTDEV 

EF "DU" from the device assigned in INDEV. 

DO Copy parity error 

Dl Invalid condition for EOV command; output device 

"locked". Use BF or FF before EOV command. 

D2 Invalid or Unassigned SEQNAM 

D3 END OF TAPE 

D4 Sequence number already on the disc. 

D5 OUTDEV = INDEV for COPY. 

FO (16 Bit) FLPT Arithmetic Fault 

(32 Bit) Arithmetic Fault. 

Fl Illegal Instruction 

F2 Machine Malfunction 

F3 Arithmetic Fault (16 Bit) 

F5 System Queue Service (32 Bit only) 

F6 Mac Interrupt (32 Bit only) 

F7 SVC Interrupt (32 Bit only) 

F8 Boundary Error (Series 3200 only) I 

NOTE 

When the position of either the input or output 
device is incorrect (not at BOT, BOV , or File 
Mark) the device is "locked" by the software; 
to correct this condition, position the file 
in question with a BF command. 
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APPENDIX A 
MEMORY MAP FOR THE CREATE FUNCTION 



MMDG 



Test program to be copied 



Low Core 



CTOP 



Typical reloca- 
tion addresses are 
*X'5000' for 16 
bit *X'7000' for 
32 bit processors. 
Relocation addres- 
ses must be large 
enough to contain 
the largest test 
program to be 
copied. 



X'OOOO" 



*When the MMDG programs are made resident on the media; they are 
resident at these addresses. 
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A-l/A-2 



APPENDIX B 



The format of the media is essential. When reloading from the 
media the 16 bit JIMDL (06-176F01) and the 32 bit MMDL (06-176F02) 
are assumed to reside as the first programs on the media. The 
format required on all media is as follows: 

- Initialization of the media 

- Generation of the 16 bit Multi-Media Diagnostic Loader 

(06-176F01) as the first program. It must have sequence 
#1. 

- Generation of the 32 bit Multi Media Diagnostic Loader 

(06-176F02) as the second program. It must have se- 
quence #2. 



NOTE 

' If a media is being built to be used only on 
one type of processor ,. the appropriate Loader 
(06-176F01 or 06-176F02) must be put on the media 
twice, once with sequ€;nce #1 and once with sequence 
#2. This is required so that proper boot loading 
from the media can be accomplished. 



Generation of desired diagnostics. 



MAG TAPE/CASSETTE FORMAT 



f Boot Loader 


— 1 


p 




1 — 


P 




|Pi 




1 ——4 


< >t-^ — ( 


\ Written by 


F 


D 


16 Bit 


F 


D 


32 Bit 


F 


D 1st Test 


F 


etc. 


F 


f; 


INIT command 


M 


B 


MMDL 


M 


B 


MMDL 


M 


B Program 


M 




M 


m! 
























CZ, 


-IT—' 



The Program Definition 
Block (PDB) contains all 
necessary information 
about the program that 
follows it. 



A double file 
mark indicates 
EOV. 
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B-1 



APPENDIX B (Cont.) 



Disc Format 



cylinders (SOP to n) * 
contain the programs 



-4 



■^A 



cylinder (SOD)* - contains the 



program directory 

Directory Forma^t - every sector of the directory is segmented 
into 32 parts. See the breakdown below. On INITialization, 
the directory is set to all zeros. As the programs are vrr it- 
ten, consecutive entries of the directory are filled. EOV on 
a disc is detected by zeros in the sequence number field. 



32 blocks per sector 



Sequence # byte 1 

Sequence # byte 2 

Sequence # byte 3 

Blank 

CYL Address byte 1 

CYL Address byte 2 

Sector byte 

Head byte 



SOP (Start of Program) refers to the contents of the location 
labeled SOP in the listings. 

SOD (Start of Directory) refers to the contents of the location 
labeled SOD in the listings. 

SOP and SOD can be any range (X'FF' maximum) within the limits 
of the disc used, and SOP must be greater than SOD. Loader/Gen- 
erator compatibility requires SOP and SOD compatibility. In other 
words, if a parameter is changed in one, it must be changed in 
the other. 



B-2 
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APPENDIX C 
USER DEVICE DEFINITION 



1. 



10 



The halfword labeled 10 (see the program listing) has the 
default value for a video display terminal on a PASLA/PALM/ 
Axynchronous Multiplexor interface as the console input-output 
device and the list device. If a different configuration is 
desired, location 10 must be changed. 



7 8 



15 



CONSOLE DEVICE IDENTIFIER • 



LIST DEVICE IDENTIFIER 



CONSOLE 
DEVICE 
IDENTIFIER 



X • 1 • 



X*02 



X • 3 • 



X'OH' 



X'OO' and 
X • 5 • 
thi:u 
X'FF' 



LEANING 



Video display terminal (GDT, CRT, or 
Model 550, 1100, or 1200 terminal) on a 
PASLA, PALM, or Asynchronous Multiplexor 
strapped for full duplex operation and 
highest baud rate. 



Teletype type device, video display 
terminal, or Carousel -15 or 30 on a 
current loop interface. 



Reserved; interpreted as X'02". 



Carousel 300 on PASLA, PALM, or 
Asynchronous Multiplexor strapped for 
full duplex, highest baud rate. 



Reserved; interpreted as X'02'. 



The video display terminal, if used on a PASLA, PALM, or 
Asynchronous Multiplexor,, should be strapped for device 
addresses X'lO' and X'll". If the base address (X'lO') is 
different, then the halfv/ord labeled PASLADR (see the listing) 
must be changed. 

The current loop interface, if used, should be strapped for 
device address X'02'. If it is different, the halfword 
labeled CLIFADR (see the listing) must be changed. 
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APPENDIX C (Continued) 
USER DEVICE DEFINITION 



The line printer, if used, should be strapped for device 
address X'62'. If it is different, the halfword labeled 
LPADR (see the listing) must be changed. 

The Carousel 300, if used on PASLA, PALM, or Asynchronous 
Multiplexor, should be strapped for device addresses X'lC 
and X'll'. If the base address (X'lO') is different, the 
halfword labeled C300ADR (see the listing) must be changed. 
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M«0 GENERATOR 06-177FQ2R0i>Hgi AlJ 
PROG= MHOG ASSEMBLED Bt CAL 03-066R08-00 (32-BlT) 



PAGE i 15!13:57 11/13/81 



OOOOOOI 



UUUOOQX 
OOOOOi*! 

OOOOIOI 

0000121 

Qcoomi 

0000161 

ooooiai 

OOOOIAI 

ooooici 

OOOOIEI 
0000201 
0000221 
0000241 



0000 
0000 

0000 
0000 
0000 
0000 
0000 

ocoo 

0000 
0000 

oouo 

0000 
0000 
OOUO 
0000 
0000 
0000 
43U0 



0000 
0001 
0002 
0003 
000i» 
0005 
0006 
0007 

ooos 

0009 
OOOA 
OOOB 
OOOC 
OOOD 

oooe 

OOOF 
OOOF 
9ADA =001ADEI 



OlOl 
0010 
0011 
0002 
00U2 
0062 
0062 
0010 
0011 
OOCO 
OOCO 



0000261 0000 



1 
2 

3 

1+ 

5 

6 

7 

8 

9 
10 
11 
12 
13 
in 

15 
16 
17 
18 
19 
20 
21 
22 
23 

2n 

25 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

to 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



SCRAT 
CROSS 
N0RX3 
SQUEZ 
SQCHK 
WIDTH 120 
IF2 ADC-2 

PROS HMO SENCRfiTOR 06.l77F0lR04H96Al3 
ELSE 

PROS MHO GENERATOR 06-177FOaR04H91A13 
ENOC 
HULTI - «EDIA OlAeNOSTIC GENERATOR R04 



MflDG 

* COPYRIGHT 



RO 
Rl 

R2 

R3 

R4 

R5 

R6 

f\7 

R8 

R9 

RA 

RB 

RC 

RO 

RE 

RF 

LINK 

ST*RT 



ESU 
EOU 

EOU 

EOU 

FQU 

EQU 

EQU 

ESU 

EQU 

EQU 

EQU 

EQU 

ESU 

EQU 

EQU 

EQU 

EQu 

B 

OS 



C PERKIN-ELHER CORPORATION MAT 1979 



10 

paslaor 

CLIFADR 

lpadr 

C300ADR 



TEST 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

HtCROBUS DC 
DC 

*«I0 = 

* 

« 

* ETPE 
CONRAOR 



8 

9 

10 

11 

12 

13 

14 

15 

15 

LCORE 

12 
CONSTANTS 

X'OlOl* 

X'OOIO* 

X«0011» 

X»0002» 

X'0002' 

X»0062» 

X»0062« 

X'OOIO' 

X'OOll' 

X»0OCO» 

X«OOCO» 
0101 FOR CRT ON PASLA 
0202 FOR TELETYPE, CAROUSEL 15/30 
XX03 FOR LINE PRINTER 
0404 FOR CAROUSEL 300 
0505 FOR MICROBUS 



FILLER 

♦ 
I/O DEVICE(S) IDENTIFIER 
PALSA/PALM read ADDRESS 
PASLA/PALM WRITE ADDRES**S 
CURRENT LOOP INTERFACE READ ADDRESS 
CURRENT LOOP INTERFACE WRITE ADDRESS 
DUMMY FOR LINE PRINTER 
WRITE ADDRESS 

CAROUSEL/PASLA read ADDRESS 
CAROUSEL/PASLA write ADDRESS 
HICROBUS READ ADDRESS 
MICROBuS WRITE ADDRESS 



10 COHNANDS 
OCX 



CONSOLE DEVICE READ ADDRESS 



MHSOOOIO 

nDGOOoao 

MDSOOOSO 
HOS00040 
PIOG00030 
MDG00060 
i*lOGU0070 
nDSuGOsD 
KDG00090 
nOGOOlOO 
HDGOOllO 
HDG00120 
MOSOQ130 
MOS00140 
HD800150 
nOGOOlSO 
nOGOOlTO 
«4De00l8Q 
nOG00190 

noGOOZoo 

nDG002lO 

nOG00220 

MDGOO<230 

HOS0Q240 

KDG00250 

MDG00260 

HDG00270 

HOG00280 

MO&00290 

|iilO600300 

nD6003lO 

MOS00320 

HDGW0330 

H0600340 

HOG00350 

MO3OO36O 

MDG00370 

HDG0C380 

nDG00390 

HOGU0400 

HDG00410 

MDG00420 

MDGOO43O 

|i«0G00'*40 

«Dg00450 

nOG00460 

MDG00470 

1HOS00480 

HO600490 

nDGOOSOO 

MOG00510 

HOG00320 

MOG00530 



nm GENERATOR 06-177F02RQifM91ftl3 



0000281 

ooooa&i 

00002CI 

oqqo2e:i 

QC0030I 
0000321 
00003tl 
0000361 
0000331 
GO0Ci34l 
00003CI 
OOOOJEl 
QOOQifOI 
0000i421 
0000<ii»I 
0000-451 
QOOO'*6I 

ucnctn 

0000<*8I 

0000«-Al 
00004AI 
OGOOitBl 

OQOOifCl 

oooo^EI 
oooa52i 

DOOOSiH 
0000581 
00005CI 
OUOO&OI 
0000641 
0000681 

oaoo6ci 

0000701 
0OO074I 
0000781 

aoco7ci 
oooo7ei 

0000801 
0000821 
00.008&I 
UO00S8I 
00U08CI 
uCiCi090I 
000091*1 
0000931 

00009CI 
OOOOAOI 

ooooaoi 

00O0A21 



0000 

0000 

0000 002BI 

0000 

0000 

&1A3 

EE61 

OO&Jj 

0080 

0000 

Al«3 

F061 

8202 

OOtiO 

00 

23 

00 

00 

25 

CO 



08 
09 
0000 

O310 
1112 
4621 
if020 
4621 
4020 
D351 
O230 
D331 
0230 
0331 
4030 
0333 
2332 
9E:23 
0530 
9E23 
4130 
4130 
4130 
E620 
4130 
OOCQ 
41E0 



004CI 

fFBE rOOOUlOI 



FFB6 
FFCC 
FFftE 

FFC2 
FFC5 
FFBF 
FFBC 
FFB6 

FFBO 



:ooaoioi 

:00002dl 
eQOOOOEI 
:000a2&I 
=0000201 
;Q0002bI 
=00002CI 
=00002AI 
=00002^1 

:00002CI 



PFA5 =0000281 



0019C4I 
0019B8I 
0C19DUI 
0019541 
0018C6I 



9938 

9928 

993C 

9SBC 

982A 

009CI 

981C sOOieBCI 



2420 
5020 0040 



OOUOa^I £620 98B2 =00195CI 



54 
65 
56 
57 
58 
S9 
6G 
61 
62 
63 
64 
65 
66 
67 
66 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

ei 

62 

63 

64 

65 

S6 

87 

88 

69 

90 

91 

92 

93 

94 

95 

96 

97 

96 

99 

100 

lOl 

102 

103 

104 

105 

l06 

407 

108 



COi^lWADR 

COMRD 

CO'^HRT 

CQIM2IMD 

CO^iCMO 

crtro 

CRT2N0 
CLiFRD 
CLIF2N0 
LPWRT 

CARRO 

C4R2N0 

AREADC 

CaNRQ2S 

CRTRa2S 



CARRa2S 



soo 
beSin 



SKP2N0 



redptx 
reotty 



PASE 

OCX 

OCX 

EflU CONRO+1 

OCX 

OCX 

OCX A1A3 

OCX EE61 

OCX 9496 

OCX 0054 

OCX 0080 

OCX 

OCX AiA3 

OCX Foei 

OCX 6202 

OCX 

06 

DB X'25« 

08 

OB 

DB X'23« 

OB 

08 * 

08 6 

OS 9 

ESU * 

XAR R4,R4 

LB Rl.IO 

SLLS Rlt2 

LH R2»I0(R1) 

STH R2.C0NUAnR 

LH R2,I0-2(R1) 

STH R2,C0NRa0R 

LB R3»C0NCH0-1(R1) 

STB R3.C0NMRT 

LB R3,C0NC«0-a(Rl) 

STB R3,CONR0 

L3 R3iC0NC«0(Rl) 

STH R3.C0N2N0 

LDAR R3»R3 

BZS SKP2N0 

OCR R2iR3 

LS R3,C0NU«T 

OCR R2.R3 

BAL RS.LOKOUT 

BftL RSiLOKlN 

BAL R3,ZSEQ 

LOAI R2. TITLE 

BAL R3»PRINT 

EOU * 

BAl re»crlf 

IFNZ AOC-2 

LIS R2.0 

ST R2,X«40' 

ENDC 
LOAI 



R2.AST 



2 15!13:57 ll/i3/91 

CONSOLE DEVICE WRITE ADDRESS 
CONSOLE REAO/WRITE COMMANDS 



OUHHY HW AS POINTER 
FOR CRT 

* CURRENT LOOP INTERFACE 

* LINE PRINTER 
DUMMY FOR LP 

* CAROUSEL 300 

* "ICROeUS 

Dummy hw for hicrobus 
console request to send cmd 

FOR CRT 

* OUHHY BYTE FOR CLI 
« OUHHY BYTE FOR LP 

* CAROUSEL 300 

« DUMMY HYTE FOR MICROBUS 
(ALIGN ON HW BQUNDRY ) 
START OF DIRECTORY 
START OF PROGRAM AREA 



SET KEYBD TYPE 

MAKE FW INDEX 

GET WRITE ADDRESS 

SAVE 

GET READ ADDRESS 

SAVE 

GET WRITE CHO 

SAVE 

GET READ CHO 

SAVE 

GET 2N0 CMD 

SAVE 

SET CC 

SKIP SECOND COHMANO 

ISSUE aND CMD 

SET WRITE CHO 

ISSUE CHO 

LOCi^ THE OUTPUT DEVICE 

LOCK THE liijPUT DEVICE 

PRINT THE TITLE 



DO CR/lF 

CLEAR 

CLEAR S3200 INDICATOR 

PRINT aN « 



HOGUO540 
MDGU0S5U 
MOS00560 
MOS00570 
mOBOOSSO 
MOS00390 
MOG*'0600 
?« G00610 
.^DG00620 
mOgU0630 
HOGU0640 
MOG00650 
HUS00b60 
MrjsU0670 
■^0600680 
HOG00690 
,10500700 
MOG00710 
!>^DG00720 
VO6OQ730 
MUG0074C 
MaS00753 
M0G00760 
MOG00770 
MOG00780 
HOG 00 790 

mosutfdou 

MOS0091C 
MOG00820 
MOS«a630 
MOSC0840 
mDGUUSSO 
MDG00860 
MOG00S70 
MDG00660 
nOGO(J890 
MOGfO'^00 
HDS00910 
MaG0D520 
M0G0093Q 
HOG00940 
HOGU0950 
MOG00960 
MOGUU970 
MDG**"590 

I»IDG<"'^90 
MD3yi"00 

K06*'i"lS 
MOG01020 
?/iOGM1030 
nDS01040 

MOS«iU50 

MDG01U60 
MOS01070 

M03"l"80 



IHO 


GENERATOR 


06-177F02R04M91A13 




PA6E 


3 15S13S57 11/13/81 


OOOOAAI 


fl30 


9818 


=0018C6I 


IO9 


REDPT . 


BAL 


R3tPRlNT 




OOOOAEl 


07tH 






110 




XAR 


R4.R4 


ZERO THE 


OOOObOI 


1+040 


A 156 


=0022yAI 


111 




STH 


R4,E0JP| s 


EOJ FLAS 


000081+1 


0722 






112 




XAR 


R2,R2 


BLANK 


0000B6I 


C830 


2020 




113 




LHI 


R3,X»2oao» 


OUT 


OOOOBAI 


1*032 


9E32 


sOOlEFOl 


114 


REDINB 


STH 


R3tINBUFCH2) 


THE 


OOOOBEl 


2622 






115 




AIS 


R2,a 


BUFFER 


OOOOCOI 


C520 


0032 




116 




CS.HI 


R2,50 




OOOOCtI 


2065 






117 




8LS 


REDINB 




0000C6I 


t820 


PF5C 


=0000261 


118 


REDAB 


LH 


R2,C0NRA0R 


SET REaO ADDRESS 


OOOOCAI 


D330 


FF5C 


S00002AI 


119 




Lfl 


RStCONRD 


SET READ CMD 


OOOOCEI 


9E23 






120 




OCR 


R2.R3 


ISSUE C«0 


OOOODOI 


9023 






121 




SSR 


R2«R3 




0000021 


2061 






122 




BIBS 


6,1 


BUST ? 


OOOODtl 


9B25 






123 




RDR 


R2,R5 


NO - REAO THE CHARACTER 


00D006I 


4820 


FF4E 


=0000281 


124 




LH 


R2«C0NUADR 


GET URITE ADDRESS 


OOOODAl 


0330 


FF40 


=00002bI 


125 




LB 


R3,C0NHBT 


SET WRITE COWHAND 


OOOOOEI 


9E23 






126 




OCR 


R2,R3 


TURN LINE AROUnO 


OOOOEOI 


9D23 






127 




SSR 


R2,R3 


SENSE STATUS 


0000E2I 


2081 






128 




BTBS 


8,1 


WAIT FOR BUSY NOT 


0000E4I 


9A25 






129 




WDR 


R2,R5 


ECHO DATA 


O0O0E6I 


C450 


n07F 




130 




NHI 


R5,X«7Ft 


MASK OFF Parity bit 


OOOOEAI 


C550 


0060 




131 




CLHI 


R5,X'60« 


LOWER CASE CHECK 


♦OOOQEEI 


2163 






132 




6L 


NOECHOl 


SKIP 


OOOOFOI 


CB5C 


0020 




133 




SHI 


R5fX»20' 


MAKE UPPER CASE 


OOOOF!^! 


C550 


ooos 




134 


NOECHOl 


CLHI 


R5,X'08» 


BS?? 


0000F6I 


4330 


ao7c 


=0001781 


135 




BE 


DELCHR 


YES 


OOOQFCl 


0254 


9DF0 


=001EF0I 


136 




STB 


R5,INBUF(R4) 


STORE THE RYTE 


OOOIOOI 


C550 


0023 




137 




CLHI 


R5,X»23» 


S 7 


OOOlOtl 


4330 


FF94 


=00009CI 


138 




BE 


REDTTY 


YES - START THE INPUT 0* 


000103I 


C550 


0000 




139 




CLHI 


R5.X»0D» 


CR ? 


OOOlOCi 


2336 






140 
141 


* 


BES 


REDAC 


YES - GO LOOK FOR A 

MATCH 


OOOlOEl 


2641 






142 




AIS 


R4,l 




OOOllOl 


C540 


0032 




145 




CLHI 


R4,bO 


FIFTY CHARACTERS? 


QOQlltl 


4260 


FFAE 


=OOO0C6I 


144 
145 
146 


* 

« R 


BL 
E A 


REDAB 
C 


NO - 

YES - LOOK FOR HATCH 










147 


♦ CONTROL COnES HERE WHEN THE CR 


IS HIT ON OPTION ENTRY. 0' 










148 


* THIRTY (30) CHARACTERS HAVE 


BEEN Input. 


oooiial 


ceio 


2020 




149 


REDAC 


LHI 


R1.X'2020> 


BLANK 


OOOllcI 


4UIO 


9EUe 


=001F28I 


150 




STH 


RltCHD 


OUT 


0001201 


4010 


9E06 


=001F2AI 


151 




STH 


R1,CM0+? 


THE 


00012<»I 


4010 


9EO4 


=001F2CI 


152 




STH 


Rl,Cno-f4 


COHHANO 


0001261 


0711 






153 




XAR 


Rl.Rl 


WORD 


00012AI 


4OIO 


9EO0 


=001F2EI 


154 




STH 


RltCHD+S 




00012EI 


4130 


9834 


=0019661 


155 


cmdab 


BAL 


R3,eETCHR 




0001321 


C500 


0020 




156 




CLHI 


R0,X'20« 


END OF NAHE 7 


0001361 


2339 






157 




BES 


CMOAA 


YES 


00013SI 


C500 


OOOD 




158 




CLHI 


RO.X'OO* 


NAHE ENDED BY CR ? 


00013CI 


2336 






159 




BES 


CnOAA 


YES - GO HATCH IT 


00013EI 


D201 


9DE5 


=001F27I 


160 




STB 


R0,CHD-1(R1I 


NO - SAVE THE CHARACTER 


0001H2I 


C510 


0007 




161 




CLHI 


Rl,7 


6 CHAR ? 


0001461 


208C 






162 
163 


* 


BLS 


cnoAB 


NO 
YES 



«0SU1U90 
nOBOllOO 
MOS«lllO 
nDG01l20 
n0601l30 
MDG«1140 

naeoiiso 
Hoeoiieo 

HDG0117D 

MDGOlleO 

nDS01190 

|^DG01200 

MD601210 

MDS01220 

nDG01230 

»DG01240 

B4DG01250 

nO60l260 

«De0l270 

HO6012SO 

HOG01290 

HOG01300 

.tlOGOlJlO 

MOG01320 

MUG01330 

MOG01340 

HDS01350 

MOGU1360 

MDG01370 

l«OG01380 

HOS01390 

HOG01400 

MDS01410 

MDG01420 

M0S01430 

MDG01440 

HDG01450 

K0e01460 

MOG01470 

MDG014B0 

MOG01490 

HDGW1500 

HOGU1510 

KDGU1520 

nDG0l53Q 

nDS0l540 

HDGW1550 

n060l560 

WDG01570 

nDG01580 

MDG01590 

MOGWi600 

HDG01610 

HDG01620 

nDG0l630 



MHO 


GENERATOR 


06-i77FQ2P 


!04n91AX3 






PASE 


4 15513J57 H/13/Si 










164 


♦ 


COMWAND NflHE IS IN CHD. CnD+2. 


CHD+4 


Ha501640 


0001431 


2526 




165 


cmdaa 


LOS 


R2,8 


SET UP THE POINTER 


i<!De0l650 


OOOl'+Al 


2628 




166 


c*^ 


JAAl 


AIS 


R2,8 


ADJUST POINTER 


KDG01660 


oooitci 


4802 803C 


=00018CX 


167 






LH 


R0.INNAHE(R2) 


GET THE FIRST TWO CHARACTERS 


HDG01670 


0001501 


4530 9820 


=0019741 


166 






32 


auEST 


ZERO? - END OF TABLE 


MDGU1680 


00015'*! 


4500 9D0U 


=001F28I 


169 






CLH 


Ro.cno 


EQUAL 7 


HOS"1690 


0001561 


2037 




170 






BNES 


CHOAAl 


NO - TRY AGAIN 


MDG01700 


00015AI 


4802 6030 


rOCOlSEI 


171 






LH 


R0.INNA«E+2<R2> 


YES - GET THE NEXT TWO CHAR. 


M0e0l7l0 


00015EI 


4500 9DC8 


=CC1F2AI 


172 






CLH 


RO.CHD*? 


EQUAL ? 


H0601720 


0001621 


203C 




173 






BNES 


CMOAAl 


NO - TRY AGAIN 


HOG01730 


00016tl 


4602 8028 


=0001901 


174 






LH 


R0.INN6ME+4(R2) 


YES - GET THE NEXT TWO CHAR 


HOS01740 


0001681 


4500 90C0 


=0G1F2CI 


175 






CLH 


RQ,CH0+4 


EQUAL 7 


B0SU1750 


Q0016CI 


4230 FFDA 


=000l4Al 


176 

177 


• 




BNE 


CnOAAl 


NO - TRY AGAIN 
HATCH 


WDG01760 
WOG01770 


0001701 


4642 801E 


=0001921 


178 






LH 


R4iINNAne+6<R2) 


BRANCH TO ThE ROUTINE SPECIFIED 


MDGQ1760 


0001741 


4304 8014 


=00016CI 


179 






B 


INNAME(R4) 


IN THE TABLE 


MOS01790 




0000 01781 




180 


DELCHR 


EOU 


• 




HD601800 


0001781 


0844 




181 






LDAR 


R4.R4 


IS THE POINTER ZERO ? 


R0M0G01810 


\J Vi \J ^ ' \^ ^ 

QG017AI 


4330 FF4e 


S0C00C6I 


182 






3Z 


REOAB 


YES - THEN NOTHING IN THE BUFFER. 


HL!G0ia20 


w V u A f ^^ ^ 

00017EI 


2741 




183 






SIS 


R4il 


NO - DECREMENT COUNTfR 


R0MDS01830 


0001801 


C620 0020 




184 






LHI 


R2,X»20. 


LOAD A SPACE 


HOG0184U 


0001841 


0223 9068 


=001EF0I 


185 






STB 


R2,INBUF(R3) 


STORE THE SPACE 


MOGU1850 


0001881 


4300 FF3A 


=0000061 


166 






8 


REDAB 


CONTINUE 


fnGOl660 








187 




**«**«***»»♦*«*«••«•«*•**♦•**«*«**««*«•«••****•***•****••**«*»**•*•*« 


MD601670 








168 










* 


nOGOidso 








169 




P 


T I ^ 


1 TABLE 


« 


HOG01890 








190 










« 


I1DG01900 








191 






THIS 


TABLE CONTAINS THE 


6 CHARACTER ASCII HNEHONIC OF THE « 


HU601910 








192 






OPTION. AND THE ADDBESS 


OF THE OPTION INPUT ROUTINE • 


HOS01920 








193 






DESIGNED TO HANDLE THAT 


PARTICULAR OPTION. * 


M0601950 








194 










* 


HDG01940 








195 




♦«»♦»«♦*«*«***«*♦»♦*•«•«*•♦***«♦*«•*«*»**♦**«•«*•*«♦♦•«»••**•****«•** 


HDS019S0 


oooiaci 


4F55 5444 


4556 


196 


innahc 


DC 


C«OUTDEv'iZ(OUT-INNANE) 


HDS01960 


0001921 
0001941 


OOCA 
494E 4445 


5620 


197 






DC 


C'INDEV '(ZJIN-INNAHE} 


HD601970 


00019AI 
00019CI 


OlBO 
4049 4D49 


5453 


196 






DO 


C'LIBITS^ZCLIHITS-INNAHEI 


MDS01980 


0001A2I 
0001A4I 


005A 
5345 514E 


4140 


199 






DC 


C • SEON AK • « Z ( SEQ- INNAHE ) 


HDG01990 


OOOlAAl 
OOOlACi 


0494 
4352 4541 


5445 


200 






DC 


C»CREATE'.Z<CREA- 


INNAMEJ 


H060200Q 


0001321 
0001B4I 


0DB4 
5257 2020 


2020 


201 






DC 


C'RH '.ZCRU-INNANE) 


nDS020lO 


OOOlBAl 

OOOIBCI 


0438 
4646 2020 


2020 


202 






DC 


C'FF »,z(FF-INNAHE> 


HO602020 


0001C2I 
0001C4X 


01C2 
4246 2020 


2020 


203 






DC 


C»8F •,Z(BF-INNAHE> 


nDG02030 


OOOlCAl 
OOOICCI 


01B8 
454F 5620 


202Q 


204 






DC 


O'EOV t.ziEV-INNAMEl 


nDeo204o 


00O1O2I 
0001D4I 


03F4 
434F 5059 


2020 


2Q5 






DC 


C'COPY t.ZtCOPY- 


INNAHE) 


MDG02050 


OOOlOAl 
OOOIOCI 


0586 
494E 4954 


2020 


206 






DC 


C'lNIT 'tZdNIT- 


INNAME* 


MOS02060 


0001E2I 

oooie4i 


0C4C 
0000 




207 






DC 


X'OOOO* 




H0602070 
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OOO1E6I 
OOOlEAl 
OOOIECI 

OOOIEEI 
0001F2I 
0001F2I 



oooiFm 

0001F3I 
oOOlFCl 
Q00200I 
0002041 
0CO203I 
00020CI 

oooaOEi 

0002121 
0002141 
0QQ216I 
00021fll 
00021CI 
0002201 
0002241 
0002261 
00022AI 
00022C1 
0002301 
0002341 
0002361 
00023AI 
00023E1 
0002401 



0000 01E61 

E640 9CE2 sOOlECCI 

24E0 

0722 

5024 0000 

2456 



4130 
C500 
4330 
C500 
4330 
C5Q0 
233C 
4130 
1124 
0620 
5024 
2751 
4230 
4300 
08EE 
4230 
24E1 
E640 
4300 

oaEE 

4330 
5BU0 
lOOl 
llOl 



g76E 

n020 
9774 

OOOD 
802C 
002C 



:001966I 
=0019741 
=0002341 



9A7A =001C8CI 



0000 

FFD4 
975U 



:000lF4l 
:00ig74I 



974fl =0019741 



9CaO 
FFB6 

973A 
9C8E 



:001EDOI 
lOOOlECl 

=0019741 
:001ECCI 



206 
209 
210 
211 
212 
213 
214 
215 
216 
2' "' 
216 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 



THE 



* 

* 

* 

* 

* 
* 

* 
* 

* 
* 

* 

« 

* 

LIMITS 
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FOLUOWIMS RQUTIMES ABE USED FOR SPECIFIC INPUT 
FUNCTIONS. CONTROL CONEs HERE AS A RESULT OF 
THE LABEL In THE OPTION TABLE. 

HITS 

THIS ROUTINE WILL HANDLE THE INPUT OF THE LIMITS OPTION. 



IT POINTS TO THE FiRST CHARACTER TO bE USED 
As DATA. 

OUTPUT: THE FOLLOWINS LOCATIONS CONTAIN THE INPUT DATA 
"LOW" - THE LOW LIMIT ENTERED 
"HIGH" - THE HISH LIMIT ENTERED 

THIS ROUTINE ALSO ROUNDS LOW AND HIGH TO A HALFHORO 
BOUNDRY. AND TESTS THAT LOW < HISH. 



* 

« 
* 

* 

* 

* 

* 
* 



LOHI 



LOHIl 



HTPRT 



lqhien 



EOU 

LDAI 

LIS 

XAR 

STA 

IFNZ 

LIS 

ELSE 

LIS 

ENOC 

BAL 

CLHI 

BE 

CLHI 

BE 

CLHI 

BES 

BAL 

SLLS 

OAR 

STA 

SIS 

BNZ 

B 

LOAR 

BNZ 

LIS 

LDAI 

e 

LOAR 

BZ 

LOA 

SRLS 

SLLS 



* 

R4,L0H SET THE DISTINATION ADDRESS 

REtO SET THE LOW FLAG 

R2,R2 ZERO OUT THE AOORESS ACCUMULATOR 

R2.0(R4) 

ADC-2 

R5,6 SET THE CHARACTER COUNT 



R5.5 

R3.GETCHR 

R0,X»20i 

aUEST 

RO.X'Od* 

LOHIEN 

RO.C',» 

HIPRT 

R3.ISHXC0 

R2.4 

R2.R0 

R2.0(R4) 

R5,l 

LOHIl 

QUEST 

RE. RE 

auEST 

RE.l 

R4.HIGH 

LOHI 

RE, RE 

aUEST 

RD.LOU 

RO.l 

RO.l 



SET THE CHARACTER COUNT 

GET A CHARACTER 
SPACE ? 

YES - PRINT "7" 
CR ? 

COHHA 7 

TRANSLATE ASCII TO HEX 
SAVE 



MAX CHARACTERS 7 

NO 

YES - PRINT "7" 



SET THE HIGH FLAG 

SET THE DESTINATION ADDRESS 

BRANCH TO COMMON ROUTINE 

WAS HIGH Entered 

NO - ERROR 

GET THE LOW ADDRESS 

MAKE IT EVEN 



n:jG02080 
MDS02090 

nOGOsloo 

«DS021ia 
M0602120 
H0e02130 

MOG02I40 
noeoaiso 
MO602160 

«rieft21^G 

noeoaieo 

MD602190 
^DeC2200 
HOG02210 
H0602220 
nOG02230 
nDe02240 
HOG02250 
»0802260 
MID602270 
MOS022aO 
HO602290 
MDS«2300 
MOG02310 
*1DG02320 
I>IDG02330 
HOe02340 
MOG02350 
M0e02360 
HQS02370 
HDG02360 
MOG02390 
MOG02400 
HOG02410 
HOG02420 
IVIQG02430 
nDG02440 
MUG02450 
M06U2460 
NDG02470 
MDG024e0 
MOG02490 
HOG02500 
nDS025lO 
HOGU2520 
MDG02530 
MDGU2540 
P1QG02550 
HDSU2560 
«DG"2570 
nO60258C 
«DG«2590 
HDsy2600 
nD6026lO 
nDG02620 



MHO GENERATOR 06-177F02RO'*n91Al3 



U00242I 5OOD 9C86 =0Q1ECCI 

0002M,sI 5600 9C82 sOOlECCI 

OOOaifAl 55UO gC82 sOOlED"! 

O002'+El '♦26C f€HH =OC009CI 

0002521 i^SUO 971E =0019741 



0002561 

00025AI 

00025CI 

00025EI 

0002601 

0002621 

0002661 

0002631 

00026CI 

00O26EI 

0QO272I 

0002761 

00027AI 

00027EI 

0002821 

0Q0236I 

00028AI 

0002SEI 

0U0290I 

0002941 

0002981 

00029AI 

0Q029EI 

0002A2I 

0002A4I 

0002A8I 

0002ACI 



0000 02561 
E6<t0 9C7E : 
2<t5l 

oefit 

087H 
0788 

4067 0000 
2672 

C574 0008 
2035 

4130 96F4 : 
C500 0020 
4330 96FA 
C500 002c 
4330 8032 
C500 OOOO 
4330 8052 
C550 OOOI 
2333 

4300 96EO 
4130 99F4 
0800 

4330 9606 
C500 0007 
2183 

43OO 96CC 
4004 0000 
2651 



:001ED8I 



:001966I 
=0019741 
E000284I 
=0002DCI 

=0019741 
sOOlCSCI 

=0019741 
=0019741 



263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

3lO 

311 

312 

313 

3i4 

315 

316 

317 



STA RO.LOW 

LOA ROiLOW 

CLA KO.HIGH 

BL REDTTY 
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YES 

IS LOU < HIGH 7 



a 



QUEST 



* 

*OUTDEV • 



THIS ROUTINE MILL HANDLE THE INPUT OF THE "OUTDEV" OPTION 

input: 



Rl = THE CURRENT INCREHENT INTO THE INPUT BUFFER. 
IT POINTS TO THE FIRST CHARACTER TO B^ USED 
As DATA. 



output: THE FOLLOWINS LOCATIONS CONTAIN THE INPUT DATA. 



"OUTOEU" 
"OUTDEV+2" 
"OUTDEV+'*" 
"OUTDEV+fi" 



THE DEVICE INDICATOR 

- THE OEVICE ADDRESS 

- THE SELCH ADDRESS <IF OUTOEV NOT : 

- THE CONTROLLER ADDRESS (IF OUTDEV 



> 2) 



THIS ROUTINE VERIFIES THAT! 

1. A SFLCH IS NOT INDICATED WITH A CASSETTE 

2. A SFLCH AND CONTROLLER ARE INDICATED ON A DISC 



* 
* 
* 

* 

« 



*»**.«»*»*•»*«♦«•«*»***«***♦*••»»»»•*•*••*«*••**•*•**••*♦***•*******•** 



OuT 
OUlNA 

OUINL 

OUIN 



OUlNl 



ouiNa 



EQU 

LDAI 

LIS 

LDAR 

LOAR 

XAR 

STH 

AIS 

CLHI 

BNES 

BAL 

CLHI 

BE 

CLHI 

BE 

CLHI 

BE 

CLHI 

8ES 

B 

BAL 

LOAR 

az 

CLHI 
BLS 

B 

STH 

AIS 



R4, OUTOEV 
RStl 
RF.R* 
R7,R4 

Re, Re 

R8,0(RT) 

R7,2 

R7«8<R<»)- 

OUINL 

R3,6ETCHR 

R0.X«20» 

fiUEST 

RO,CS« 

OUINFL 

RCX'OO' 

CHKIOF 

R5.1 

OUINI 

QUEST 

R3.ISHXC0 

ftO»RO 

QUEST 

R0,X'7» 

0UIN2 

QUEST 

R0t0(R4S 

R5.1 



SET THE DESTINATION ADDRESS 
SET THE ROUTINE INDICATOR 



SET A CHARACTER 

SPACE ? 

YES - PRINT •'?" 

COnHA ? 

YES - 60 PROCESS THE NEXT FIELD 

CR 



YES 

NO • 



FIRST FIELD f 



- ZERO ? 

YES - INVALID 

< 7 ? 



HDGU2630 
HDSU2640 
HDG^a&SO 
I«ID60266C 
MDSy2670 
MDG02660 
M0G02690 
||||DG02700 
»OG027l0 
NOG02720 
HDG02730 
HOG02740 
MDG02750 
MDG02760 
(«iDG0a770 
HOG02780 
HOG02790 

HOGoaeoo 

HDG02S10 

MQG02820 

HOG02830 

MDG02S40 

nDG02650 

nDG02a60 

IHOG02370 

«OS02680 

HDG02890 

HOG02900 

HDG02910 

MDS02920 

HDG02930 

MD602940 

WDGQ2950 

HDG02960 

IHDS02970 

i«D502980 

MDG02990 

MDG"3U00 

HD6O3O1O 

H0G"3020 

nD603030 

nOS03040 

N0603050 

nDG03060 

MDG03070 

HOG03080 

HDGU3U9O 

MDG"3100 

HOG03110 

nDG«3l20 

HDG03130 

MDS03140 

HDSU3I5O 

nDG03l60 

HOS031.70 
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0002AEI 


0870 






318 




LDAR 


R7iR0 


0002B0I 


(^300 


FFBA 


=00026EI 


319 




B 


OUIN 


ooossm 


C550 


0005 




320 


OuINFL 


CUHI 


R5.5 


0002B81 


4330 


96BS 


=0019741 


321 




BE 


aUEST 


0OO2BCI 


26>»2 






322 


IQFUN2 


AIS 


R4«2 


00023EI 


0722 






323 




XAR 


R2,R2 


0002COI 


2*62 






324 




LIS 


R6,2 


n Artrt-c^^T 


ill xn 


nc « n 


^Ctn^ Q£ir T 




nt >T Mk/ 


a Ai 


a<x Arv«»..M 


»'»' VCU.C* 




7WH- 


mivv A. ^UO J. 


wc^ 


UU^f/'i 


unw 


n%j T **fc- I wnr; 


0002C6I 


4130 


99C2 


=001C8CI 


326 




BAL 


R3,ISHXC0 


0002CAI 


1124 






327 




SLLS 


R2.H 


0002CC1 


0620 






323 




OAR 


R2,R0 


0002CEI 


4024 


0000 




329 




STH 


R2«0(R4) 


0002D2I 


2761 






330 




SIS 


R6a 


0002D<tI 


2039 






331 




BNZS 


OUINX 


0002D6I 


2651 






332 




AIS 


R5,l 


0002D8I 


4300 


FF92 


=O0O26eI 


333 




B 


OUIN 


0002DCI 


C550 


0003 




334 


chkiof 


CLHl 


R5,3 


0002E0I 


4280 


9690 


S001974I 


335 




8L 


QUEST 


0002E'*I 


C570 


0003 




336 




CUHI 


R7,X«03» 


0002E8I 


4260 


8028 


=0003141 


337 




BL 


CHKIOI 


0002ECI 


C550 


0005 




338 




CLHI 


R5,X'05« 


0002F0I 


4230 


9680 


=0019741 


339 




BME 


QUEST 


0002Fm 


F5F0 


0000 


IED8I 


340 




CLAI 


RF.OUTOrv 


0002FAI 


2333 






341 




8ES 


OUTMX 


0002FCI 


2'tF2 






342 




LIS 


RF.2 


0002FEI 


2302 






343 




BS 


UPCHKCOH 


0003001 


07FF 






344 


OUTMX 


XAR 


RF.RF 




0000 


0302] 




345 


UPCHKCOM 


CQU 


« 


Q00302I 


0A77 






346 




AAR 


R7,R7 


0003041 


4897 


8026 


=00032EI 


347 




LH 


R9.CYLTAB<R7) 


OOO3O8I 


407F 


9EB8 


=0021C4I 


348 




STH 


RTtTRKDENtRF) 


OOO3OCI 


409F 


9EB8 


=0021C3I 


349 




STH 


R9.HAXCYLtRF) 


0003101 


4300 


F068 


=00OU9CI 


350 




B 


REOTTY 


0003im 


C550 


0005 




351 


ChKIOI 


CLHI 


R5,X'05i 


0003181 


4330 


965fi 


=0019741 


362 




BE 


QUEST 


00031CI 


C570 


0002 




353 




CLHI 


R7t2 


0003201 


2135 






354 




BNES 


CHKCHD 


0003221 


C550 


0003 




355 




CLHI 


R5,3 


0003261 


4230 


964A 


=0019741 


356 




BNE 


QUEST 


00032AI 


4300 


FD6E 


=00009CI 


357 


chkcho 


B 


REDTTY 


00032EI 


0000 






356 


CyLTAB 


DC 


H»0« 


0003301 


0000 






359 




DC 


H'O' 


0003321 


0000 






360 




DC 


H'0» 


00333tl 


03i6 






361 




DC 


H'822' 


0003361 


0197 






362 




DC 


H«407' 


0003381 


0336 






363 




DC 


H'a22» 


OOO334I 


0336 






364 




DC 


H'822' 










365 


*****«**«**««*« 4i»s|:«***«***** 










366 


* 














367 


« I N 


E V 












366 


* 














369 


« 














370 


♦ 


THIS 


ROUTINE WILL H 










371 


« 














372 


* 


INPUT! Rl ' THE CUR 



EXCEEDED MaxIHUH » OF FIELDS 

YES 

BUMP POINTER BY 2 



CONVERT 
SAVE 

STORE 

WORE CHAR ? 

YES 

NO » BUHP FUNCTION COunT 



SHOULD TRKOEN - HAXCYL BE UPDATED 

OUTDEV 

SET THE INDEV INDICATOR 

SET THE OUTDEV INDICATOR 

DOUBLE DEVICE POINTER 

LOAD MAXCYL 

SAVE 

SAVE 



< 3 - SHOULD NOT HAVE 4 FIELDS 

= 4 • NG 

CASSETTE ? 

NO 

YES - WORE THAN TWO FIELDS ? 

YES - ERROR 

NO - RfTURN 



1 

2 

3=13.5 «B DISK R04 

4=10 MB DISK 

5=80 MB DISK 

6=300 HB DISK 

* 

LE THE INPUT OF THE «INdEV" OPTION * 

* 



nD603l80 
HDGU3190 
nOS03200 
H0e«32l0 
HO603220 
HDe0323G 
l>:D603240 

MOS03260 
nDe03270 
MDG0328C 
BDS03290 
N0503300 
HOS03310 
nDS03320 
HO6O333O 
H0e03340 
M0eU3350 
MDG03360 
HDS03370 

no6033eo 
MOGO3390 

HOG03400 

hosoShio 

HD603'^20 
MOG03't'30 
HDG03t40 
HOS03450 
nDG03460 
»1DG03'»70 
MDGU3'»80 
HDG03'»90 
nDG<J3&00 

Hososaio 

M S«3520 
MOG03530 
MOG03540 
MDG03S50 
HDG03560 
HDGO357O 
HDG03560 
HOGO359O 
HDGU3600 
HDS03610 
nDG03b20 
nDG03&30 
HDS036IJO 
nOG03650 
nD6036fi0 
«OG03670 
MOGOSbaO 
nOG03690 
HOGD3700 
H0G03710 
MOG03720 
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373 * 






374 • 






375 * 






376 ♦ 






377 * 






378 * 






379 ♦ 






360 * 






381 » 






382 * 






383 * 






384 * 






385 * 






386 *«* 




0000 033CI 


387 IM 


00033CI 


E640 9BAU =001EEUI 


488 


0003401 


4300 FFl6 =00025AI 


389 

390 * * 

391 » 

392 » 

393 * 

394 » 

395 » 

396 « 

397 * 

398 * 

399 ♦ 

400 • 

401 » 

402 * 

403 * 

404 * 

405 * 

406 * 

407 * 

408 • 

409 * 

410 « 

411 * 

412 « 

413 • 

414 * 

415 * 

416 » 


0003441 


243F 


417 BF 


0003461 


2440 


416 


0005401 


4040 SEAE =0e21FftI 


4tg 




00034CI 


2302 


420 

421 ♦ 

422 * 

423 * 

424 * 

425 * 

426 * 

427 * 



IT POINTS TO THE FIRST CHARACTER TO BE USED 
As DATA. 



« 
* 

OUTPUT! THE FnLLOWINS LOCATIONS CONTAIN THE INPUT DATA. • 
"INDEV" - THE DEVICE INDICATOR * 

«INDEv+2" • THE DEVICE ADDRESS * 

•'INDEV+4'' - THE SEUCH ADDRESS (IF INOEV = lt3.4» * 
"INDEV+6" - THE CONTROLLER ADDRESS (IF INDEV = 3.4) « 



THIS ROUTINE VERIFIES THAT: 

1. A SElCH IS NOT iNDICASteO WITH A CASSETTE 

2. A SElCH AND CONTROLLER ARE INDICATED ON A DISC 



* 

* 
« 

*»*♦*«»««*»*«*»••«*•*♦»******«♦•*«♦•***•*****•**•***••****••*••******** 

EQU * 

LOAI R4, INDEV SET THE OESTIV 

a OUINA 
, *♦***««♦«»«»•*•«****««***♦***«*************•**•***♦*****•**♦********* 

B F 

BACKSPACE FILE HARK 

« 
THIS ROUTINE UILL BACK UP FILES UNTIL THE DESIRED 
FIlE NUHBER Is FOUND OR UNTIL BOT. 

input: R1 = THE CURRENT INCREMENT INTO THE INPUT BUFFER. 
IT POINTS TO THE FIRST CHARACTER TO Qt USED 
FOR THE DEVICE IDENTIFIER (0 OR I). 

output: the HEDIA hill be handled AS FOLLOWS 

M*6 tape: backed uP to THE DESIRED FILE OR BOT. 
DISC! THE DIRECTORY IS SEARCHED TO SEE IF 
THE NUHbER EXISTS ON THE DISC. 
IF THE NUMBER IS FOUND "EOJ" IS PRINTED ON THE 
CONSOLE. IF THE NUMBER IS NOT FOUND "ERROR" - "EOJ" 
IS PRINTED ON THE cONSOUE FOR MAG TAPE, AND "EOV" - 
"EOJ" IS PRINTED IF A OlSC. 

THE LOCK WORD FOR THE APPROPRIATE DEVICE IS UPDATED 
WITH THF NUMBER IF THE NUMBER WAS FOUND. OR LOCKED 
IF EOV OR AN ERROR IS DETECTED. 

*«♦,♦«****«♦••••****•••*••**••***•••**•*•**♦*♦**♦*******•*****•****** 
LIS RS.15 SET THE BACKSPACE FILE MARK FLA6 

LIS Rt+,0 RESET THE BACKSPACE FlA6 

STH R4,BKSPFL 
BS BBFB 
*»♦***«**««««**«•*♦**«•*«****•••♦**«*•«**«****•*****••**•**•**•****** 

F F 
FORWARD FILEMARK 

* 

THIS ROUTINE WILL FORWARD FILES UNTIL THE DESIRED * 



* 
* 

* 

* 
« 

« 
* 
« 

* 

* 



|"ID603730 

MDG037H0 
HOS03750 
MDG03760 
("10503770 
HOG03780 
M0G03790 
HD603800 
MOG03810 
ttOGOSezO 
MOG03830 
f<lDG03840 
M0G03650 
!«;OS03660 
«DG03e70 

HDGUsaeo 

WDS«3690 
«I060390Q 
IMOG03910 
nOS03920 
HOG03930 
JIIOG03940 
MOG03950 
n0503960 
nOS03970 
MOG03980 
HOS03990 
nD604000 
H0504010 
nO6O4020 
nU604030 
HOG 04040 
MDG040SO 
HDeO4060 
»10G04070 
HD6040SO 
nDS04090 

noeo4ioo 

H0604110 
nDG04l20 
HOG04130 
HO604140 
HOS04150 
nOG04l60 
BOS 04170 
HD6041B0 
HDSU4190 

H0G04210 
HOG04220 
MOS04230 
MOG04240 
MOG04250 
nDG04260 
MDG04270 
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OOOStEl 
OOO35OI 
0003541 
0003561 
09035AI 

00035EI 
0003601 
0003641 
0003681 
00036AI 
00036EI 
0003721 
00037m 
0003781 
00037CI 
0003801 
0003821 
0003661 
0C038AI 
00038EI 
0003921 
0003961 
0033981 
00039CI 
00039EI 
0003A2I 
0003A6I 
0003A8I 
0003ACI 
0003BOI 
0003841 
0003881 
0003BCI 
D003COI 
0003041 
0003081 



0000 
2430 
4O3O 
2441 
4U40 
4130 
24AF 
C500 
4330 
24A0 
C500 
4230 
24F0 
4130 
C500 
4230 
2450 
4130 
C500 
4330 
C550 
4330 
0870 
C570 
2338 
4130 
D275 
2651 
4300 
C550 
4230 
4830 
4230 
0330 
C530 
4230 
4130 



034EI 

9CA2 s002lF6l 



9E8U 
960a 

0049 
807E 

004F 
9602 

95EE 
002c 
95F4 

95E0 
OOOD 
S05E 
0003 
95DE 

004F 

98EA 

geiA 

FFD6 
0001 
95C0 
9E3E 
9586 
9E00 
0045 
95AC 
959A 



:00220AI 
;0D1966I 



=0003E6I 

=0019741 
=0019661 
=0019741 
=0019661 
=0003ECI 
=0019741 



:001C8CI 
:0021COI 

=0003621 

=0019741 
=0021F6I 
=0019741 
=0021C0I 

=0019741 
=0019661 



429 
430 
"♦31 

433 

434 
435 

436 
437 
436 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
45O 
451 
452 
453 
454 
455 
456 
457 
456 
459 
460 
461 
462 
463 
464 
465 
466 
467 
466 
469 
470 
471 
472 
473 
474 
475 
476 
477 
476 
479 
460 
t81 
'»62 



FItE NUMBER IS FOUND OR UNTIL EOV. 

INPUT! Rl = THE CURRENT I^fCREHENT INTO THE INPUT SUFFER, 
IT POINTS TO THE FiftST CHARACTER TO BE USED 
FOR THE DEVICE IDENTIFIER (0 Or l) . 

output: THE MEniA WILl. BE HANDLED AS FOLLOWS 

HA6 tape: FORWARD TO THE oESIRED FILE OR EOV. 
disc: THE DIRECTORY IS SEARCHED TO SEE II" 
THE NUMBER EXISTS ON THE OISC. 
IF THE MUnBER IS FOUND "EOJ" IS PRINTED ON THE 
CONSOLE. IF THE NUMBER IS NOT FOUND "EOV - "EOJ" 
IS PRINTED ON THE CONSOLE. 

THE LOCK WORD FOR THE aPPROPIATE DEVICE Is UPDATED 
WITH THF NUMBER IF THE NUMBER WAS FOUND • OR LOCKED 
IF EOV IS DETECTED. 



* 
* 

* 

* 

* 

« 
* 



^c ^i:iL***ni****it****m*****m************ie*mm******************************* 



FF 
BBFB 



FFCOM 



FFMORE 



TSTEOV 



E8U 

LIS 

STH 

LIS 

STH 

HAL 

LIS 

CLHI 

BE 

LIS 

CLHI 

BNE 

LIS 

8AL 

CLHI 

BNE 

LIS 

BAL 

CLHI 

BE 

CLHI 

BE 

LDAR 

CLHI 

BES 

BAL 

STB 

AIS 

B 

CLHI 

BNE 

LH 

BNZ 

LB 

CLHI 

BNE 

BAL 



R3,0 

R3.FFBFFL 

R4,l 

R4.E0JFLS 

RS.eCTCHR 

RAJIS 

80,C'I» 

FFCOHI 

RA>0 

RO.C'O' 

auEST 

RF,0 

R3,6ETCHR 

RO.C',« 

QUEST 

R5,0 

R3,6ETCmr 

RO,X»0d» 

FFIT 

R5,3 

QUEST 

R7,R0 

R7.C'0» 

TSTEOv 

R3,ISHXC0 

R7,PGMNUH(R5( 

R5.1 

FFMORE 

R5.1 

QUEST 

R5.FFBFFL 

QUEST 

R3,P6MNUH 

R3,C»E' 

QUEST 

RS.SETCHH 



SET THE FORWARD FILE MARK FLAS 

SAVE THE FLAS 

SET THE EOJ 

FLAG 

0tJ A CHARACTER 

SET THE I INDICATOR 

I 7 

YES 

NO - SET THE INDICATOR 

? 

CLEAR FLAG 

SET NEXT CHARACTER 

COMMA 7 

NO 

YES 

GET THE NUMBER 

CR 

YES 

NO - TOO MANY CHAR 7 

YES 

NO - HEX CHAR ? 

IS IT ? 



YES 



HOS042S0 

MDG04290 

MDG04300 

HD604310 

■IDG04320 

MDG04330 

HDG04340 

HOG043SO 

nOg043bC 

MDS04370 

MOG04380 

HDe04390 

MDS04400 

HDS04410 

MOG04420 

HDGO443O 

HDS04440 

MOGO445O 

MDG04460 

HDG04470 

HDG04480 

HDG04490 

ivD6U4S00 

nOG045lO 

MDG04520 

nDG04530 

MCG04340 

MDG04550 

HDG04560 

MDGO457O 

MDG04580 

KOGO459O 

HOG04600 

HDGU4610 

KOG04620 

MDG«4630 

MDG04640 

MOG04650 

MDG04660 

HOG04b70 

H06046aO 

HOGO469O 

MDG04700 

MDG04710 

HDG04720 

MDG04730 

MDGO474O 

HDG04750 

HDG04760 

MO6U477O 

HDG04780 

MDSO479O 

HOG04800 

M06U»910 

MDGO462O 
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0003CCI 


C500 0056 




463 




CLHI 


RO.C«V» 


0003D0I 


4230 95A0 : 


:001974r 


484 




BNE 


QUEST 


O0030tl 


C6OO 3O3O 




465 




LMI 


R0,X«3030» 


0003081 


4OWO 9DE4 : 


:0021C0I 


486 




STH 


ROtPSNNUM 


U0030CI 


0200 gDE2 = 


=0021C2I 


467 




STB 


RO.PGnMuH+2 


0003E0I 


£453 




488 




LIS 


R5,3 


0003E2I 


4300 FpgC : 


=0003821 


489 


X 


B 


FFHORE 


0003E6I 


24Fe 




490 


FFCOni 


CIS 


RF.2 


Q003E8I 


4300 FF88 : 


=0003741 


491 




3 


FFCOM 


0003ECI 


C550 0003 




492 


FFIT 


CUHI 


R5t3 


0003FOI 


4230 9580 ■ 


=0019741 


493 




BNE 


QUEST 


0003F'*I 


40A0 9EU6 : 


rOoaiFEI 


494 




STH 


ra.ioflag 


0003F8I 


08AA 




495 




LDAR 


RAfRA 


OOOSFAl 


2136 




496 




3NZS 


FFITI 


0003FCI 


4130 95C4 


=0019C4I 


497 




BAL 


R3,L0K0UT 


OOOhOOI 


4130 937E 


=0017821 


498 




BAL 


RS.LOOAn 


QOOHOfl 


2305 




499 




BS 


FFIT2 


UOOifOgI 


4130 95AE 


=00l9B8I 


500 


FFITI 


BAL 


R3,L0KIN 


OOOhOaI 


4150 93EC 


=0017FAI 


501 




BAL 


RSiLIOaD 


ooo^OEI 


OEAO 9498 


sOOlSAAI 


502 


FFIT2 


oc 


RAtOISARL 


0001121 


C510 0003 




5o3 




CLHI 


R1,X'3» 


003<«16l 


4360 3098 


=0004821 


504 




BML 


FFOISC 


OUO4IAI 


DEAD 9496 


=0018841 


505 




DC 


RA« CLEAR 


ooomci 


4830 9004 


=0021F6I 


506 


FFBFl 


LH 


R3.FFBFFL 


0004221 


4230 a03E 


=0004641 


507 




BNZ 


BFIT 




0000 04261 




508 


FFIT3 


Eau 


« 


0004261 


DEAD 947C 


=0Q1SA6I 


SO9 




OC 


RA.FWFH 


U0042AI 


4100 9552 


=0019801 


5l0 




BAL 


R0«NOHOTN 


00042EI 


E650 9AFE 


=001F30I 


511 




LOAI 


ftS.FFBOF 


0004321 


E660 9B2C 


=001F62I 


512 




LDAI 


R6,FFBUF+50 


0034361 


E6IO 804E 


=0004881 


513 




LOAI 


Rl, FFEOV 


Q0043AI 


4130 9108 


=0015461 


514 




BAL 


R3«RCADPB 


00043EI 


4630 907E 


=002lCOl 


515 




LH 


R3tPSHNuH 


0004421 


4530 9AEA 


=001F30I 


516 




CLH 


R3»FFBUF 


0004461 


4230 FFD4 


S00041EI 


517 




BNE 


FFBFl 


00044AI 


0330 9074 


=0021C2I 


518 




LB 


R3,PGHNUH*2 


00044EI 


D340 gAE" 


=001F32I 


519 




LB 


R4tFF8UF+2 


0004521 


0534 




520 




CLAR 


R3»R4 


Q00454I 


4230 KFC6 


=0004XEI 


521 




BNE 


FFBFl 


0004581 


DEAD 9451 


=0018ADI 


522 




OC 


RA.BKSP 


0004SCI 


4100 9520 


=0019601 


523 




BAL 


RO.NOHOTN 


0004601 


4300 809E 


=0005021 


524 




B 


FFDSC5 




0000 04641 


525 


BFIT 


EQU 


* 


0004641 


4100 9526 


=00198E1 


526 




BAL 


R0«8KFN»IH 


OOO468I 
00046C1 
00046EI 


4800 9D8E 
2335 
OEAO 9435 


=0D21FAI 
=001SA7I 


527 
523 
529 


BFITI 


LH 

BZS 

OC 


RD.BKSPFL 

BFIT4 

RA.BKFH 


OOO472I 


4100 9518 


=00l9eEl 


53O 




BAL 


RO,BKFHig« 


0004761 


240F 




531 


BFIT4 


LIS 


R0.15 


OC0478I 


4OOO 907E 


=0Q21FAI 


532 




STH 


RO.BKSPFL 


00047CI 


OEAO 9427 


=0016A7I 


533 




OC 


RA.8KFH 


OOO4SOI 


4100 gSOA 


=0019eEl 


534 




BAL 


RO.BKFHnM 


0004841 


4300 FF9E 


=000426! 


535 




B 


FFIT5 




0000 04681 


536 


ffeov 


EQU 


* 


0004881 


4100 94F4 


=0019801 


537 




BAL 


RO.NOHOTN 
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IS It V 7 
NO 



SET FLAG 

COUNT = 3 
NO 

YES - SET rONDITION 



ZERO THE FF THE OUTOEV 

LOCK THE INPUT DEVICE 

LOAD THE INPUT AQoRESsES 

IDsABLE INT 

TAPE ? 

NO - DISC 

YES -CLEAR 

GET THE FLAG 



FORWARD FH 

WAIT 

SET UP TO READ 



READ THE PDB 

GET THE NUMBER ENTERED 

NO 

YES - GET THE THIRD DIGIT 



NO 

YES - REPOSITION THE TAPE AT 



WAIT FOR NO HOTION OF rOT 
BACKSPACE FLAG SET 7 
NO - 00 1 BACKSPACE 
YES - DO 2 BACKSPACES 

MAX I r Ul\ RJU nw I * viK wr nW < 

SET THE DOUBLE BACKSPACE FLAG 
WAIT FOR NO MOTION OF B^T 



M0S04B30 

MDSO484O 

HDG04850 

MOGO466O 

nDG04870 

r<OS048B0 

M0G04890 

MDG04900 

HDGU491G 

Ml)G04920 

HOG04930 

HDS 04940 

MDG04950 

H0S04960 

H0GW4970 

n0GU49e0 

M0604990 

HOSOSOOO 

HOG"50lO 

MDSU5U2O 

HOG05030 

HDG05040 

MDB"S050 

HDGW5«60 

M0605070 

NOGOSOeO 

(ilDG»»5090 

nOG^SlOO 

woGu'siiO 

110605120 
H0805130 
NOGO5140 
MQ6«5150 
MD6"5160 
MD605170 
MDGOSleO 
MOG05190 
HDS05200 
WO6O5210 
NOSOS220 
HOSU5230 
ROG05240 
NO605250 
«DG«5860 
P!OS*»5270 
«DG05280 
«0G»5290 
(H0S»?5300 

Hoeossio 

WDS"5320 
HDG^SSSO 
nDG05340 
HOGO535O 
nDG05360 
mDS"5370 
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OOOitSCI 


OEAO 


9417 =0018A7I 


538 




OC 


RA»BKFM 


BACKSPACE FILE HARK 


0Q0it90l 


iflUO 


94EC =0019801 


539 




BAL 


RCNOHOTN 


«AIT FOR NO NOTION 


000if94l 


4830 


9D5E =0021F6I 


54O 




LH 


R3.FFBFFL 


GET THE FF BF FLAG 


0004981 


4230 


FF82 =00041EI 


541 




BNZ 


FF8F1 




000i*9Cl 


41E0 


941C =0018BCI 


542 


PEOV 


BAL 


REtCRLF 


DO CR/LF 


OOQlfAOl 


E620 


8008 =0004ACI 


543 




LO&I 


R2tE0Vx 


PRINT EOV 


OOOi^Aifl 


4130 


941E =0018C6I 


544 




BAL 


R3, PRINT 




OOOifASI 


4300 


9214 =0016C0l 


545 




B 


PEOJ 


PRINT FOJ 


OuOHACi 


454f 


3bZ0 


346 


EOVX 


OC 


C'EOV',x«DD0A» 




000<*BOI 


OOOA 
















0000 


04B2I 


547 


ffoisc 


EOU 


« 




0004B2I 


0380 


FB94 r00004AI 


548 




LB 


R81SOD 


GET START 


000IIB6I 


(foao 


9046 =0022001 


549 




STH 


Ra.CYL 


SET CYLINDER TO START 


ODQ'tBAl 


0788 




550 




XAR 


R8,R8 


SET SECTOR TO ZERO 


0004BCI 


4130 


951E =0019DEI 


551 




BAL 


R3.WDFT 




OOOitcOI 


DEAD 


93EB =0018AFI 


552 




OC 


R A. SEEK 


SEEK 


0004C1H 


4130 


9548 sOOlAlOl 


553 




BAL 


R3tFRSRU 


WAIT 


0004CSI 


2430 




554 




LIS 


R3.0 




OOO^CAl 


4030 


9034 =0022021 


555 


FfDSIB 


STH 


R3,HEA0 


SET HEAD TO ZERO 


OOOitCEI 


E6S0 


98DA =0020ACI 


656 


FFDSlA 


LDAI 


R5. DIRECT 


SET UP THE SELCH 


000HD2I 


0665 




557 




LDAR 


R6«RS 


ADDRESS 


'OOO'tDm 


CA60 


OOFF 


558 




AAi 


R6,X'FFf 




0001*061 


4130 


9502 B0019DEI 


559 




BAL 


R3,HDFT 




0004DCI 


4130 


9O3A =00151AI 


560 




BAL 


RS.ROISC 


RESD 


ooo4eoi 


0722 




561 




XAR 


R2.R2 


ZERO BLOCK POINTER 


0004E2I 


4830 


9CDA =0021CUI 


562 


FFOSl 


LH 


RStPGMNUH 




OOOtEfel 


4842 


9BC2 =0020ACI 


563 




LH 


R4,DIRECT(R2) 


EOV ? 


000<4EAl 


4330 


e06A =0005581 


564 




SZ 


TSTBOV 


YES - It NOT FOUND 


OOCtEEl 


0534 




565 




CLAR 


R3.R4 


EfluAL ? 


OOOfFOI 


4230 


8034 =0005281 


566 




BNE 


FFDSCl 


NO 


OOOi+Fll 


O330 


9CCA =0021C2I 


567 




LB 


R3tPeHNuM*2 


YES - GET THE NEXT DiGiT 


000<tF8l 


D342 


9BB2 =0020AEI 


568 




LB 


R4,DIRECT+2(H2) 




OOOitFCl 


0534 




569 




CLAR 


R3,R4 


EQUAL 7 


0004-FEl 


4230 


8026 =0005261 


570 




BNE 


FFDSCl 


HO 


OOO5O2I 


4630 


9C8A =002lC0l 


571 


FFDSC5 


Lri 


R3fPeHNuM 




OOO5O6I 


D340 


9CB8 =0021C2I 


572 




LB 


R4.PGMNUH+2 


AND STORE IT IN THE LOCK 


OOO5OAI 


4810 


9CF0 =0021FEI 


573 




LH 


Rl»IOFLaG 


GET THE FLAG - OUTPUT 


ooosoei 


2337 




574 




BZS 


FFBFED 


YES 


0005101 


4030 


9908 =001EECI 


575 




STH 


RStPGniPN 


NO - RESET THE INPUT HEV, I 


000511H 


D240 


9906 =Q01EEEI 


576 




STB 


R4»PGHIPN+2 




0005161 


4300 


91A4 =0016CUI 


577 




B 


PEOJ 




00051CI 


4O3O 


99C6 =001EE8I 


578 


FF8FED 


STH 


R3.PGM0PN 




000520I 


D240 


99C6 =001EEAI 


579 




STB 


R4,PGH0PN+2 




U0U52<H 


43UO 


9198 =U016CUI 


580 




B 


PEOJ 






0000 


05281 


581 


FFDSCl 


EQU 


* 




0Q0528I 


2628 




582 




AIS 


R2,6 


BUHP POINTrR 


00052AI 


C520 


0100 


583 




CLHI 


R2.X'100' 


THIS BLOCK FINISHED 7 


00052EI 


4230 


FFBO =0004E2I 


584 




BNE 


FFDSl 


NO 


0005321 


2681 




585 




AIS 


R81I 


YES - INCREMENT THE SECTOR 


0005341 


464F 


9C8C =0021C4I 


566 




LH 


R4.TRKDrN<RF) 


LOAD TRKDEN 


0005361 


4584 


8028 =0005641 


587 




CLH 


R6,SECTaB(R4) 


MAXIMUM? 


00053CI 


4230 


FF8E =0004CEI 


588 




BNE 


FFDSlA 


NO 


0005401 


4880 


9CBE =0022021 


569 




LH 


RStHEAO 


YES - INCREMENT THE HEAD 


0005441 


464F 


9C7C =0021C4I 


590 




LH 


R4.TRKDEN«RF) 


LOAD TRKDEN 


0005481 


4584 


8026 =0005721 


591 




CLH 


Re<HDTAB(R4) 


MAXIMUM? 



«OS«5380 

«0G«5390 
KDG'J5400 
MDG05410 
MDG"5420 
WDG05430 
«OG05440 
HDGU5450 
MDS05460 

B0G05470 
WOG05480 
MOGO549O 
nOGOSSOO 
MDgU55i0 
NDG"5S20 
MDGO5530 
HD60S540 
MD605650 
nO60S560 
HOS05570 
M060S580 
HDGU5590 
■DGdS&OQ 
HDGO561O 
|»IDG*'5620 
HOGU5630 
HD605640 
MDe05650 
M0G05660 
HOGO567O 
HDG05680 
MOS05690 
MDG05700 
«DGU57iO 
HDG"5720 
M0G*'5730 
MDG05740 

mdgostso 

MDS**5760 
MOGW577O 
HDG«»57eO 
HDG«'5790 
HDG"5800 
MDG05610 
N0G05820 
HOGQ5830 
HDG05840 
HDG05650 
HDG05860 
MDG05870 
NDGOSSeO 
MD6U569O 
HD6«5900 

noeos9io 
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0005^CI t33B 973t =Q0LC8i+I 

0005501 2631 

Q00552I Q7ea 

UOOSS"*! tSUO FF72 =OOQt-CAI 

0005581 "ieHO 9C9A =0021F&I 

0Q055CI 4330 FF3C =00049CI 

UU0560I JjSUO 943E =0019A2I 

OOOSfetl 00<JO 

0005661 0000 

00Q569I 00^0 

00056AI OOtO 

00066C1 00X6 

00056EI OOffO 

00Q3701 0040 

0005721 OOOO 

000574.1 OOOO 

Q00576I 0000 

Q00576I 0000 

0Q057ftI 0001 

00057CI 0004 

OOOSTtl 0012 



0005801 
000582X 
0005861 
0Q058AI 
00058CI 
0005901 
0005921 
0U0596I 
00059AI 
00059EI 
0005A2I 
0005A4I 
OOOSAftl 
0005ACI 

0005B4I 
0005B8I 
0005BCI 
0005C0I 



0000 
2'f'H 
4040 
4130 
2531 
4530 
2135 

caio 

4300 
4130 
C510 
2187 
4130 
4150 
43U0 
0000 
410Q 
DEAO 
4100 
4130 
4500 



OSBOl 

9C64 r00220AI 
91F8 =0017621 

9958 =001EE8I 

ODDl 

973A =OQ1C04I 

91E4 =0017821 

0003 



SDOC s 
9418 = 
9ll0 - 
05B0I 
93c C 
92EF = 
93C4 
94O4 
90E4 



0013841 
0O19C4I 
OOI&COI 

0019801 
0016A71 
0019801 
0019C4I 
00l6Aal 



592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

oO<4 

605 

6Q6 

607 

608 

609 

610 

611 

612 

613 

6X4 

615 

616 

617 

618 

619 

620 

621 

622 

6?3 

624 

625 

626 

627 

628 

629 

63O 

631 

632 

633 

634 

635 

636 

637 

63« 

639 

64O 

641 

642 

643 

644 

643 

646 



TSTBOV 



SECTA8 



HOTAB 



BE 


DIRFUL 


AIS 


R3<1 


XftR 


R8<R8 


S 


FFDSI3 


LH 


Ri*,FFBFFL 


az 


PEOV 


B 


PBOV 


DC 


H»0' 


DC 


H«0' 


DC 


H«0' 


DC 


H'64' 


DC 


H»24' 


DC 


H»6f' 


DC 


H'64' 


DC 


rt»0' 


OC 


H'O' 


DC 


H'O' 


DC 


H«0» 


OC 


H» 1 ' 


DC 


H'4' 


OC 


H»18' 
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YES-ERROR 
INCRIHENT HEAD 
ZERO SECTOR 

EOV OM 8F ? 

NO - PRINT "EOV 

tES - PRINT "SOV" 



R04 



RO4 



* 



EOV 

THIS ROUTINE WILL WRITE "EOtf" ON THE HEDIA. IT CaN ONUY BE 
EXECUTED HMEN THE POSITION OF THE MEDIA IS KNOWN. THE COHHaND 
IS ALWAYS DIRECTED AT OUTDEW 



«««»««*««*«*«**««*«*«««**«**««««****** 



«*«*«****«««*««*«**«***••*•**»»«* 



EV 



EVl 



EWHT 



EQU 


* 


LIS 


R4,l 


STH 


R4tE0JFLS 


BAL 


RBtLOOAO 


LCS 


R5,l 


CLH 


R3,P6H0PN 


BNES 


EVl 


LHI 


R1.X'D1' 


B 


ERRA 


BAL 


R3.L0DA0 


CLHI 


R1,X»05« 


BLS 


EVHT 


BAL 


R3,UP0TXX 


BAL 


R3.L0K0UT 


B 


PEOJ 


EQU 


* 


BAL 


RO.NOMOTN 


OC 


RA.BKFH 


BAL 


R0«NOnOTN 


BAL 


R3.LOK0UT 


B 


EOV 



CAN ONLY BE USED ON OUTPUT DEVICE 

SET THE EOJ 

FLAG 

LOAD Output addresses 
IS Output device locked ? 

YES ERROR 

SET Rl 
< 3 7 

YES - HAS TAPE 

ZERO OUT THE PROPER P«RT OF THE 

DIRECTORY 



»«*«**»«♦•«**«•«***♦*«*«**«*»«*♦•*•«•**«•****•♦*******♦************•*** 



REWIND 



HDG05920 
nDS05930 
MOS05940 
MDSO5950 
MOG05960 
HO6O597O 
HQG059eO 
«iJ605990 
nOGOgUOO 
HDGU6010 
nDG06020 
flOG06030 

nOGOta^o 
MOGO6U50 

M06U60&0 
HOS06070 
HOGOfiOftO 
HD5Ut090 

ffOGtt61lO 

»DG0&130 
nD5Q&l40 
MOSO6I5O 
n0606l60 
NOS06170 
HDS061S0 
HOGO6I9O 
n0606200 
i>rOG062lO 
K0SO622O 
NDS0&2SQ 
H0SU6240 
HOS06230 
MOe06260 
(10SU62TQ 
nOS06280 
nO€06290 
KI0Sy6300 
^06X6310 
HOG 06320 
NO6065S0 
HDG06>S«»0 

H0e«6360 
MD606370 
HOS06380 
rlOSS639C 
WDSUS'H'O 
MDG«64iO 
MD606420 
HDG06430 
HDe0644Q 
HOS064-50 
(90906460 
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OOOSClI 
0005C6I 
0005CAI 
0005CEI 
0005DOI 
OOOSDtl 
0005061 
00050AI 

0005DCI 
00050EI 

ooosEai 

0005E6I 
OOOSEAI 
*0005EEI 
0005FOI 
0005Fi*I 
0005F6I 
0005F8I 
0005FCI 
UUUsOOI 

000604I 
uoofeOai 

00O6OCI 
0006OEI 

OOOfelOI 
0006141 
0006181 

oonfeicl 



0000 

4130 
2'^FF 
C500 
2134 
4130 
2306 
0000 
24F0 
C500 
42^0 
4130 
C510 
236F 
DEAO 
08BB 
2333 
DEBO 
DEAO 
4100 
DEAO 
4100 
0000 
08FF 
2335 
4130 
43U0 
4130 
4300 



5C41 

9C4O =00220aI 
9398 =0019661 

0049 

922U =0017FAI 

050CI 

004F 

93eE =0019741 

9198 =0017821 

0003 

92B6 =0018AAI 



92B0 zOOlSACI 
92B4 =0016841 
937C =001981^1 
92AD =0016651 
9374 =00198"! 
060CI 



93fl4 =0019881 

90A6 =0G16C0I 

g3Afl =0019041 

9060 =0016C0I 



647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
653 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 

671 

672 
673 
674 
675 
676 
677 
678 
679 
6eO 
681 
682 
681 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 



THIS ROUTINE HILL REMIND THE SPECIFIED HEDIA 



INPUTS Rl 



RU 

SET THE EOJ 

FLAG 

GET A CHARACTER 
SET THE I INDICATOR 
I 7 



RWX 



RWO 



RUOl 



RWDISC 



RWOPDS 



OUTPUT! A HAG TAi 




IS SET, 1 


EQU 


* 


LIS 


R4,l 


STH 


R4.EOJFLG 


SAL 


RStSETCKR 


LIS 


RF,15 


CLHI 


RO,C«lt 


BNES 


RWX 


BAL 


R3<LIDA0 


as 


RWO 


EQU 


* 


LIS 


RF,0 


CLHI 


RO.C'Of 


BNE 


QUEST 


BAL 


RS.LODAn 


CLHI 


Rl,X'03t 


BNL 


RWDISC 


OC 


RA.DISARL 


LDAR 


RB.RB 


BZS 


RWOl 


OC 


RB.STOP 


OC 


RA, CLEAR 


BAL 


RO.NOHOTN 


OC 


RA. REWIND 


BAL 


RO.NOnOTN 


EOU 


« 


LOAR 


RF.RF 


BZS 


RWOPDS 


BAL 


R3iL0KlN 


B 


PEOJ 


BAL 


R3.L0K0UT 


8 


PEOJ 



* 
* 
« 
THE CURRENT INDEX INTO THE INPUT BUFFER 1 * 

IT POINTS TO THE DEVICE loENTlFER CHARACTER. tl-O)* 

« 
HAG TAPE IS REWOUND TO LOAD POINT AND THE LOCK WORD • 
ON A DISC THE LOCK WORD IS SET. « 

« 



SET THE INDICATOR 



NO 



7 



NO - ERROR 

< 3 ? 

NO - REWIND THE DISC 

YES - REWIND The TAPE 



SET THE CONDITION CODE 
OUTPUT DEVICE WAS SPECIFIED 
LOCKOUT THE INPUT DEVICE 

LOCKOUT THE OUTPUT DEVICE 



:^^,*^i**m^:*^*1,1Hlttt*******W:***t:**t******i>L*m*****************"************** 



S E Q N A H 



THIS ROUTINE WILL SET THE SEQUENCE NUMBER. AND 
NAME UP IN HEMORY. THIS NUMBER AND NAME WILL BE 
COPIED TO THE MEDIA ON A CREATE OPERATION. 

INPUT! Rl = THE CURRENT INDEX INTO THE INPUT BUFFER. 
IT POINTS TO THE FIRST CHARACTER OF THE 
SEQUENCE NUHBtR. 

OUTPUT! THE SEQUENCE NUMBER AND NAME ARE STORED iN 



* 
* 

* 
* 

* 
* 

« 
* 

* 



HDS06470 
HDS064SO 
f«DS06490 
|i;O5065G0 
nDSC65lO 
MOS06S20 

noe06S30 

MDG065«jO 
nOGueSaO 
nDG06S60 
nDG06570 
nOS06580 
HDG«6590 
HD6M6600 
M0606610 
HD606620 
MOGO6630 
HDGO664O 
HDGO665O 
l>«OG06660 
HDG06670 
HD606680 
MDG06690 
HDS"6700 
HDG06710 
HDG06720 
HDGU6730 
HDS067if0 
HDG06750 
^fOG06760 
HOS«6770 
H0GU678U 
HDS06790 

woG^seoo 

MUG06aiO 

HOGoeegQ 

HOG06850 
HOS"66ltO 
HOGO665O 
MOG06S60 
HOG06870 
HDG06880 
MDG06890 
MD506900 
MDG06910 
MOG06920 
MOG06930 
MUG06940 
I«!OG06950 
nOG06960 
MDG06970 
M06Q69eO 
nOG06990 
HOG07000 
HDS07010 
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702 


« 




ASCII IN THE SE 


:ONAH BUFFER 






705 


* 












704 


««»«»***♦«*»♦**«♦****•«****«****««»»***«««**** t********* 


0006201 


0722 


705 


SEO 


XAR 


R2,R2 


ZERO OUT 


0006221 


C800 2020 


706 


SEQZ 


LHI 


RO.X'ZOjO' 


THE 


0006261 


tfOUg 993E =001F68I 


707 




STH 


R0,SEaNAn(R2) 


SEQUENCE - NAME 


000fa2Al 


2622 


7oa 




AIS 


R2,2 


FIELD 


00062CI 


C520 0032 


709 




CLHI 


R2,50 




0006301 


2037 


710 




BNES 


seqz 




0006321 


2^50 


711 




LIS 


R5,0 




00063tl 


tlSO g32E =0019661 


712 


SE91 


BAL 


R3,GETCHR 




0006381 


C500 0020 


713 




CLHI 


R0tX'20' 




a0063cl 


1^330 aOBC =0006FCI 


714 




3E 


ZSeEST 




0006401 


C500 OOOD 


715 




CLHI 


RO,X'OD» 


IS It cr 


00064'tl 


1330 SOB^^ r0006FCI 


716 




BE 


2S0EST 




0006461 


C500 002C 


717 




CLHI 


ROfC',' 




0006tCl 


233D 


716 




8ES 


SE02 




00n6itEl 


C550 0003 


719 




CLHI 


R5t3 




0006521 


<*330 80A6 =0006FC1 


720 




BE 


2S0EST 




0006561 


0870 


721 




LDAR 


R7,R0 




0006581 


<tl30 9630 =001C8CI 


722 




BAL 


RS.ISHXCO 




00065CI 


D275 9908 =001F68I 


723 




STB 


«?,SEQNsn(H5) 




OOG660I 


2651 


724 




AIS 


R5.1 




0006621 


t3U0 fFCE =00063m 


725 




B 


SEQl 




000666X 


C550 0003 


726 


SEe2 


CLHI 


R5,3 




00066AI 


4230 806E =0006FCl 


727 




BNE 


zsqest 




00066EI 


4130 92F1* =0019661 


728 


SEQ9 


BAL 


R3.GETCHR 




0006721 


C500 0020 


729 




CLHI 


RO.C • 




0006761 


4330 8082 S0006FCI 


730 




BE 


ZSQEST 




00067AI 


C500 OOOD 


731 




CLHI 


RO.X'OD' 


IS IT CR 


00067EI 


4330 a07A =0006FCI 


732 




BE 


ZSQEST 




0006821 


C500 002C 


733 




CLHI 


RO.C' 




0006661 


4330 8044 SD006CEI 


734 




BE 


SEQ99 




00068AI 


C500 002E 


733 




CLHI 


ROiC«.« 


EXTENSION DEtlHITER? 


00066EI 


4230 S024 =0006861 


736 




BNE 


SE091 


NO 


0006921 


C550 oooe 


737 




CLHI 


RS«8 




0006961 


4230 8062 sO006FCI 


736 




BNE 


ZSQEST 




00a69Al 


4130 92C8 =0019661 


739 




BAL 


RS.GCTCHR 


SET NEXT 


C0069EI 


Ce70 002E 


74 




LHI 


R7,C'.' 


LOAD DECIMAL POINT 


0006A2I 


D270 96DB =001F61I 


741 




STB 


R7.SEQM4H+25 


STORE 


0006A6I 


0670 


742 




. lDar 


R7,Rfl 


SAVE RO 


0006A6I 


4130 95E0 sOOlCeCI 


743 




BAL 


R3,ISHXC0 




0006ACI 


D270 9602 =001F62I 


744 




STB 


R7tSEQNAN'»-26 


STORE 


0006BOI 


4130 92B2 =0019661 


745 




BAL 


R3,SETCHR 




*0006B'tI 


230D 


746 




B 


SEa99 




0006861 


C550 0008 


747 


SFa91 


CLHI 


R5,B 




0006BAI 


453Q S03E =0006FCI 


748 




BE 


ZSQEST 




OOO&BCI 


0870 


749 




LDAR 


R7,R0 




OOOfeCOI 


4130 95C8 =001C6CI 


T50 




SAL 


RStlSHXCO 




0006C4I 


D275 98A(1 =001F66I 


751 




STB 


R7,SEQNAH«R5) 




0006C8I 


2651 


752 




4IS 


R5,l 




0006CAI 


4300 FFAO =00066EI 


753 




B 


SEQ9 




oao6CEl 


C550 0008 


754 


SEQ99 


CLril 


R5.8 




0006021 


4230 8026 =0006FCI 


755 




BNE 


ZSQEST 




00O6O&I 


4130 92ac =0019661 


756 


SE82A 


BAL 


R3,G£TCHR 





HDSOTOaO 
MDGQ7030 
M0607040 
HDG07050 
MDGO7O60 
("10GU7U70 
nOG07080 
HOG07090 
,v|D607100 
HDS07110 
HDGU7120 
MDG07130 
HOG07140 
HOG07150 
MOG07160 
!«IDS07170 
MDG071e0 
f*OG071gO 
HDG072O0 
IHOS07210 
MDG«7a20 
H!;G07250 
«0S0724Q 
HDG«7250 
HOG07260 
HOG07270 
|<IOG«'7280 
HOS07290 
HDS07300 
WDGOTSIO 
nDe07320 
WOS07330 
MDG07340 
MDG07350 
naS07360 
«OG07370 

vi0eo73eo 

HDG07390 
MDG07400 
nDS<'74l0 
MOS07420 
HOGe7430 
WDG«7440 
H06074SO 
MDG07460 
HD60T470 
«OG07480 
WOSVt490 
W0SW7500 
MDG07510 
H0S07520 
HDG07530 
M0S07540 
HDG07550 
HDG«7560 



mi 


1 GENET! 


^aroR 


06-177F02F 


!04M91« 


lis 
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0006DAI 


C500 


OOOD 




757 




CLHI 


RO.X'OD* 




MDG07570 


0006DE1 


H330 


F9BA 


=00009CI 


758 




BE 


REDTTY 




noGOTSeo 


0006E2I 


C550 


0012 




759 




CLHI 


R5.18 




■"10507590 


0006^61 


2336 






760 




8ES 


SETGAP 




MO6076O0 


C006E3I 


C550 


0032 




761 




CLHI 


R5.50 




MOG07610 


0D06ECI 


2338 






762 




BES 


ZSQEST 




HOG07620 


0006EEI 


D206 


9876 


r00lF68I 


763 


SET! STB 


R0«SE6NAn(R5l 




MOSOTSJO 


0006F2I 


2651 






764 




AIS 


RS.l 




MOS07640 


OOObFtl 


220F 






765 




BS 


SEQZA 




HD607650 


0006F6I 


ceso 


OOIE 




766 


SFTSAP UHI 


R5,30 THIS LEAVES A SAP IN THE TABLE 




HOG07660 


0006FAI 


2206 






767 




SS 


SETl 




MOS07670 


0006FCI 


C600 


2O2O 




768 


ZSQEST LHI 


R0,X»2020» 




nOG07680 


0007001 


0722 






769 




XAR 


R2,R2 




MDG07690 


1)007021 


HQUZ 


9862 


=001F68I 


770 


ZSSZ STH 


R0,SEONAn(R2) 




MDG"7700 


0007061 


2622 






771 




AIS 


R2,2 




HOG07710 


0007081 


C520 


0032 




772 




CLHI 


R2.50 




nOS07720 


00070CI 


2035 






773 




BNES 


zsaz 




MQB07730 


00070EI 


4300 


9262 


=0019741 


774 




B 


QUEST 




MDSU7740 










775 


*«*«*******»*««**«*•««,«»«**:««»«, ^»,«»«,„*:„»*^«:»^»:^^»,:»^^»»»»«*»:»:»^, 


** 


H0S07750 










776 


* 






* 


HDG07760 










777 


* 


COPY 




* 


HDS07770 










778 


* 






• 


HOG07780 










779 


* 


THIS ROUTINE IS USED TO COPY ONE MEDIA TO ANOTHER. THE ENTRY 


* 


HDG07790 










7aq 


* 


TO THIS pooeRsH TM-rrODTg.Tre -Iiurjrv- ftUQ -gnTj^y- ,« _rTj-Rp,T.,^ 


* 


BOGCTSeO 










781 


* 


WHICH OF THE FOUR (4) INTERNAL ROUTINES WILL BE USED. THE 


* 


flOS076XO 










782 


* 


INTERNAL ROUTINES ARE: 


* 


HD607820 










783 


* 






« 


MDG07830 










784 


* 


DIDO - 


DISC INPUT / DISC OUTPUT 


* 


H0G07840 










785 


* 


DIHO - 


DISC INPUT / HAG TAPE OUTPUT 


* 


HDG07850 










786 


* 


HIHO - 


«AS TApp INPUT / HAG TAPE OUTPUT 


* 


«DS07660 










787 


« 


HIDO - 


HAG TAPf INPUT / OiSc OUTPUT 


* 


MDG07870 










766 


* 






* 


HDG07860 










789 


* 






* 


MDG07890 










790 


* 


CONTROL COHE TO THE TEST FROM THE OPTION INPUT ROUTINF 


* 


l«IDG07900 










791 


* 






* 


ROS07910 










792 


♦ 


INPUT ■ 


- Rl = AN INDEX INTO THE INPUT BUFFER, IT POINTS 


* 


MDS07920 










795 


* 




TO THE FIRST CHARACTER TO BE USED As THE 


* 


MOS07930 










794 


* 




THREE (3) DIGIT SEQUENCE NUMBER. 


• 


WDGO794O 










795 


* 






* 


HOG07950 










796 


* 


THE ROUTINE FIRST CHECKS TO SEE IF THE CONfDITION tHQ POSITION 


* 


«DG07960 










797 


* 


OF BOTH OUTPUT AND INPUT DEVICES Is KNOWN. THIS IS noNE FROM 


* 


WDS07970 










798 


« 


THE HISTORY OF THF DEVICE MAINTAINED IN HE10RY, IF sN UNKNOWN 


* 


MDG07960 










799 


* 


CONDITION 


IS FOUND AN ERROR iS PrInTED, IF NO ERROR iS FOUND 


* 


MOG07990 










800 


» 


THE TRANSFER BEGINS. IF THE OUTPUT DEVICE IS NOT AT EOV THE 


« 


MDGOaOOO 










801 


* 


COPY WILL 


START AT THE CURRENT POSITION OF THE MEDIA. THE COPY 


* 


nOGOSOlO 










802 


* 


CONTINUES 


UNTIL THE NUMBER SPECIFIED IS FOUND OR UNTIL EOV IS 


« 


MOG08020 










803 


* 


DETECTED. 




« 


HOGoeoso 










804 


* 






* 


MOGOe040 










805 


* 


WHEN THE . 


JOB IS COMPLETE "EOJ" IS PRINTED ON THE CONSOLE. 


* 


MDG08050 










806 


* 






* 


MDG08060 










807 


*********************m»***t*ii*^»*tLm****»***m****************»**'^***m*»* 


MDGO8O7O 










aoe 


* 








Koeoaoeo 




OOOo 


07121 




609 


COPT EQU 


* 




nD6oeo9o 


0007121 


2'*50 






810 




LIS 


R5fO SET CHARACTER COUNT To ZERO 




MDGUSIOO 


000?1<H 


4130 


924E 


=0019661 


811 


cptnor BAL 


R3,GETCHR GET A CHARACTER 




Hoeosiio 



MHO 
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0007181 


C500 GOOD 


812 




CLHI 


R0,X'0O' 


CR 




HDG08120 


00071CI 


4330 8020 =0007401 


813 




BE 


COPtA 


TES 




noeoeiso 


0007201 


C550 0003 


814 




CLHI 


R5i3 


TO HANY CHAR ? 




nO606140 


00072m 


4220 924C =0019741 


815 




BP 


auEST 


YES 




M0GO8150 


0007281 


0870 


616 




LDAR 


R7.ro 


NO 




HOG08160 


00072AI 


C570 004P 


617 




CLHI 


R7,C«0' 


IS IT 7 




HOS08170 


00072E:I 


4330 802E =0007601 


816 




BE 


COPTEV 


YES 




MDS08180 


0007321 


4130 9556 =001C8CI 


619 




BAL 


R3.ISHXC0 


VALID HEX CHARACTER 7 




HOG08190 


000736I 


0275 9A86 =0021COl 


820 




STB 


R7»PeHNUM(R5) 


YES 




wDSoeaoo 


Qu373Al 


2651 


821 




AIS 


R5,l 






MDS06210 


0a073Cl 


4300 FFD4 =0007141 


822 




B 


CPYHOR 






l>IDG08220 


0007«*OI 


C550 0003 


625 


COPTA 


CLHI 


R5,3 


ENOUGH CHAR? 




HDG08230 


ouu7«mI 


4230 922C =0019741 


821+ 




BNE 


QUEST 


NO 




HDG»'8240 


0007^61 


C810 lEECl 


825 




LHI 


Rl.PSHIPN 


GET THE INDEV LOCK 




nOG08250 


0007*CJ 


C510 FFFF 


826 




CLHI 


Rl.X'FFFF' 


= -I ? 




«|QGOS260 


0007501 


4230 803E =0007921 


627 




BNE 


COPVl 


THE INDEV POSITION KNOWN 


HDG08270 


0007541 


4130 90A2 =0017FAI 


826 




BAL 


R3,L1DA0 


YES - THEN INDEV NOT POSITIONED 


WOG082ao 


07581 


CaiO OOEB 


629 




LHI 


Rl.X'EB' 






MOG06290 


075CI 


1*300 9571* =0010041 


630 




B 


ERRA 


PRINT ERROR 




M0G«8300 


0007601 


C550 0001 


831 


CnPYEV 


CLHI 


R5,l 






ftOGOaSiO 


OOOTfefl 


4230 92«C =0019741 


B32 




BME 


QUEST 






»«)G0a320 


0007681 


0330 9A54 s0021C01 


633 




LB 


R3,Pef1filllH 






wDsuesso 


0007&CI 


C530 0045 


634 




CLHI 


RS.C'E' 






nO60834O 


0007701 


4230 9200 =0019741 


835 




BNE 


QUEST 






HDS08350 


0007741 


4130 91EE =0019661 


836 




aAL 


R3,SETCHR 






W0G08360 


0007781 


C500 0056 


837 




CLHI 


RO.C'V 


IS IT V ? 




«D608370 


00077CI 


4230 91F4 =0019741 


836 




BME 


QUEST 


NO 




HO GO 8360 


OB07aOI 


C600 3O3O 


859 




LHI 


ROiX'SOsOt 






|i|OS08390 


0007641 


4OUO 9A38 =0021CUl 


84O 




STH 


RO.PSHNUM 






Hosue^oo 


0007881 


D200 9A36 =0021C2I 


841 




STB 


R0tP6nMUM*2 






v(oe»6**io 


00078CI 


2453 


642 




LIS 


R5,3 






H0GO842O 


0007aEl 


4300 FF82 =0007141 


643 




B 


CPYHOR 






«DSOe430 




0000 07921 


644 


COPTl 


EQU 


* 






HD60e4<tO 


0007921 


4130 8FEC =0017621 


645 




BAL 


R3«L0DA0 


GET THE OUTOEV ADDRESS 


i 


WOGU8450 


0007961 


if5A0 9748 =001EE2I 


6<t6 




CLH 


RAtlNDEV4'2 


IS OUTDEV = INDEV ? 




«De06460 


00079AI 


2135 


8H7 




BMES 


C0PY2 


MO - CONTINUE 




HDS0a470 


00079CI 


C600 1*435 


648 




LHI 


ROrC'OS" 


TES - ERROR 




HD608460 


0U07ADI 


43UO 9**6C =001C10I 


649 




a 


ERROR 






HDG«8490 




OOOo 07A4I 


850 


CnPY2 


EQU 


* 






nOGoasoo 


0D07A41 


4130 9052 S0017FAI 


851 




BAL 


R3«LI0An 


SET THE INPUT DEVICE TYPE 


HOGoasio 


0007A8I 


C510 0003 


852 




CLHI 


Rl.X'OS* 


HAS TAPE 7 




Hoeoa^so 


0007ACI 


2189 


853 




BLS 


MTIN 


YES 




nO608S30 


00Q7AEI 


«|.130 SFOO =0017821 


654 




BAL 


R3.L0DAD 


GET THE OUTPUT OEvICE 


TYPE 


MDG08SH« 


0037621 


C510 O003 


855 




CLHI 


R1.X'03» 


HAG TAPE ? 




H0e08550 


0007B61 


4280 82B2 =000A6CI 


656 




BL 


oino 


THEN DISC INPUT • HAG 


TAPE OUTPUT 


K0606SI6Q 


0007aAl 


4300 8480 =0e0C4AI 


657 




8 


OIDO 


NO THEN DISC TO DISC 




HOG08570 




0000 07BEI 


856 


HTIN 


Eau 


« 


HAG TAPE INPUT 




noGOesso 


0007BEI 


4130 8FC0 =0017821 


859 




BAL 


R3»L00AD 






MOSW8S90 


0007C2I 


C510 0003 


660 




CLHI 


R1.X»03' 


SET THE OUTPUT DEVICE 


TYPE 


noe 08600 


0007C6I 


2183 


661 




BLS 


MIHO 


HAG TAPE TO MAG TAPE 




HDG08610 


ooo7cai 


4300 813B =0009041 


662 




B 


HIDO 


MAG TAPE TO DISC 




MDG08620 




0000 07CCI 


663 


MXHO 


EQU 


* 






HO608630 


0007CC1 


2441 


664* 




LIS 


R4.1 






HOG 08640 


00Q7CCI 


4O4O 9A38 =00220a1 


865 

866 


* 


STH 


R4.E0JFLG 






MDGO865O 
HDG0e66O 
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867 


* HAG 


TAPE IN 


- HAG TAPE OUT 




MDS08670 










868 


* 








|>!DG0S680 


0007021 


4130 


9024 


S0017FAI 


869 




3AL 


RS.LIDAD 


LOAD THE INPUT DEVICE ADDRESSES 


HDG08690 


0007D6I 


E650 


97eE 


=001F68I 


870 




LOAt 


R5.PDB 


SET UP THE STORAGE AREA 


HDG08700 


OOQ70AI 


E&60 


97BD 


=001F9BI 


871 




LDAI 


a6tP0B+51 


* RO4 


!«lOG087i0 


00Q7DEI 


E610 


8098 


=00087AI 


872 




LDAI 


RI.HIHOFH 


SET FILE MARK RETURN 


nDfi08720 


0007E2I 


4130 


8D60 


r001546I 


873 




BAL 


R3.READP8 


GO READ 


MDS08730 


Qng-TCiT 


4130 


fli rr 


=0069661 


671*= 




BAL 


R3;HISTST 




M0e08740 


0007EAi 


4130 


8F94 


=0017821 


875 




BAL 


RijLODAD 


LOAD THE OUTPUT DEVICE ADDRESSES 


HOG*»6750 


0007EEI 


9DA1 






876 




SSR 


RA.Rl 


BOT ? 


nD60e760 


0007FOI 


C310 


0020 




877 




THI 


R1.X'20» 




«DS0S?70 


0007F4I 


2335 






878 




BZS 


UTHIHO 


NO 


WIDG08780 


0007F6I 


C810 


OOEO 




879 




LHI 


Rl.X'EOt 


YES 


HOG08790 


0007FAI 


4300 


94D6 


=001C04I 


880 




B 


ERRA 


ERROR 


MOGU88OO 


0007FEI 


E650 


9766 


=00lF68I 


861 


HTHIHO 


LDAI 


R5.PDB 


SET UP THE ADDRESS 


HDS«88lO 


uooeOai 


E660 


9795 


=001F93I 


682 




LDAI 


R6,P0B*51 


« R04 


MOGV862O 


0008061 


4130 


8032 


=00153CI 


883 




BAL 


R3.WRTPR 


GO WRITE THE PDB 


n060e630 


oooeOAi 


4130 


8FEC 


=0017FAI 


684 


hthonx 


BAL 


R3,LI0A0 


LOAD THE INPUT DEVICE ADDRESSES 


KDSO864O 


oooeOEl 


E650 


978A 


=001F9CI 


665 




LDAI 


R5,HRTBUF 


SET UP THE 


HDGU885O 


0008121 


0865 






666 




LDAR 


R6<R5 


BUFFER TO READ 


HOG08860 


oooaiti 


4830 


9A00 


=0022181 


687 




LH 


R3.NUHBLK 


GET THE NUMBER OF BLOCKS 


MDSO887O 


0008181 


4330 


801E 


=00063AI 


888 




BZ 


HIHOLB 




nOGOSSSO 


*00081CI 


CA60 


OOFF 




869 




AAI 


R6,X'FF» 




nDG08890 


0008201 


2731 






ago 




SIS 


R3,i 


DEcREflENT THE COUNT 


mD6C5900 


0008221 


4030 


99F2 


=0022181 


891 




STH 


R3<NUHBtK 




MDG0a9l0 


0008261 


CS30 


OOFF 




892 




LHI 


R3,X»FF' 


SET THE CURRENT BLOCK 


HDG08920 


00082AI 


4030 


99EC 


=00221AI 


893 


MIM02X 


STH 


R3.CURBLK 


SIZE 


NIDG08930 


oooa2El 


E610 


8150 


=0009821 


894 




LDAI 


Rl.MIDOrR 


SET FILE HARK RETURN 


MOG089i»0 


0008321 


4130 


6D10 


=0015461 


895 




BAL 


R3.READPB 




MDG08950 


0008361 


4300 


8028 


=0008621 


696 




6 


niHOl 




MOGOe960 




0000 


063AI 




897 


HlHOLB 


EQU 


* 




MDS08970 


00083AI 


4830 


9908 


=0022161 


898 




LH 


RS.LSTBLK 


LAST BLOCK 


MDG08980 


00083EI 


2336 






899 




9ES 


HIHONL 


NO LAST BLOCK 


MDG08990 


0008401 


0A63 






900 




AAR 


R6,R3 




HDG09000 


oooatai 


0711 






901 




XAR 


Rl.Rl 




P»DG090lO 


OUOSDIII 


4010 


99CE 


=0022161 


902 




STH 


Rl.LSTBLK 




MD3«9020 


0008481 


220F 






903 




BS 


HIH02X 




HDG09030 




0000 


Oe4AI 




904 


niMONL 


EQU 


* 


NO LAST BLOCK 


HOG09040 


00084AI 


E650 


974E 


=001F9CI 


905 




LDAI 


R5,WRTBUF 


THERE HUST BE A FILE MARK 


HOGO9O5O 


oooa^Ei 


0865 






90& 




LDAR 


R6.R5 


OR Else error 


i"!OG09060 


0008501 


2664 






907 




AIS 


R6i4 




HO&O9O7O 


0006531 


E610 


fl02C 


=0008821 


908 




LDAI 


RI.HIMOFN 


SET FH RETURN 


VOG09080 


0008561 


4130 


aCEC 


=0015461 


9O9 




BAL 


RStREADpB 




HOG«»9090 


00085AI 


C810 


OOOO 




910 


MIHOER 


LHI 


R1,X'D0» 


F« BEFORE END OF cOuNT OR 


HOS09100 


00085EI 


4300 


9472 


=0010041 


911 
912 


* 


B 


ERRA 


END OF COUNT BEFORE fn 


MDGU9110 
HOG09120 




0000 


0862] 




913 


MlMOl 


EflU 


* 




••OS09130 


O00B62I 


4130 


8F1C 


=0017821 


914 




BAL 


R3,L00An 


GET THE OUTPUT DEVICE ADDRESSES 


WDGO9I4O 


0008661 


E650 


9732 


=001F9CI 


915 




LDAI 


R5.WRTBUF 


SET up THE 


HOS«9150 


000B6AI 


0865 






916 
917 


* 


LDAR 


R6tR5 


BUFFER VALUES 


HOe09l60 
•1D809170 


0OD86CI 


4630 


99AA 


=00221AI 


918 




LH 


R3,CURBLK 




nOS09l80 


0008701 


0A63 






919 




AAR 


R6tR3 




HOS09190 


0008721 


4130 


8CC6 


=00153CI 


920 




BAL 


R3,WRTPB 




n06V9200 


0008761 


4300 


FF90 


sOOOaOAI 


921 




B 


HIHONX 




n06d92l0 
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0000 0B7AI 




922 MIHOFW 


EOU 


« 


oooa7&i 


C810 DOES 




923 


LHI 


R1.X'EB« 


OOOSTEl 


4300 9<f52 


=001CD4I 


924 


B 


ERRA 




0000 08821 




925 HIMOEN 


EdU 


» 


ooogsai 


4130 sEFC 


=0017821 


926 


BAL 


R3.L00A0 


0008861 


DEAD 9021 


=0018ABI 


927 


OC 


RA.WFn 


Qooaafli 


4100 90F2 


=0019801 


928 


BAL 


ROtNOPIOTN 


oonesEi 


OEAo 9019 


=0018ABI 


929 


OC 


RA.WFK 


0008921 


4100 9OEA 


=0019801 


950 


BAL 


RO.NOnOTN 


0008961 


OEAO 9013 


=0018AOI 


931 


OC 


RA.BKSP 


00039AI 


4100 90E2 


=0019801 


932 


BAL 


RO.NOMOTN 




0000 069EI 




933 COPHTI 


EQU 


« 


oooasci 


4130 8F58 


=0017FAI 


934 


BAL 


RS.LIDAO 


0008A2I 


E650 96C2 


S001F681 


935 


LDAI 


R5.PDB 


0008A6I 


E660 96F1 


=001F991 


936 


LDAI 


R6,PDB+51 


OOOSAAl 


E610 803E 


=0008EC1 


937 


LDAI 


Rl.HIMOFV 


0008AEI 


4130 aC94 


=0015461 


938 


BAL 


R3,READPB 


0008B2I 


OEAO 8FF7 


=0018AOI 


939 


OC 


RA.BKSP 


0008B6I 


4100 90C6 


=0019801 


94 


BAL 


R0,NOMOTN 


0008BAI 


4830 9902 


=0021C0I 


941 


LH 


R3,PGHnUW 


ooo8be:i 


4530 96A6 


=001F6ai 


942 


CLH 


R3,P08 


0008C2I 


t250 FECC 


=0007921 


943 


BNE 


COPtl 


0008C6I 


OS30 96F8 


=002lC2l 


944 


LB 


R3.PSflNUM*2 


oooscaI 


031*0 969C 


=001F6aI 


945 


LB 


R4»P0B+2 


00O8CEI 


0534 




946 


CLAR 


R3,R4 


oooeooi 


4230 FEBE 


=0007921 


947 


BNE 


COPYl 


0008D<*I 


4830 98Ee 


=0021COI 


948 


LH 


RS.PSHMun 


0008DBI 


4030 961" 


=001EECI 


949 


STH 


R3«P6HIPN 


0008DCI 


D330 98E2 


=0021C2I 


950 


LB 


R3,PGHNuH+2 


0006E9I 


D230 960a 


sOOlEEEI 


951 


STB 


R3.P6MIPN+2 


oooeE'*! 


4130 90E8 


=0019001 


952 


BAL 


RS.ZSEQ 


0008E8I 


1^300 8004 


=0016CUI 


953 


B 


PEOJ 




0000 08EC] 




954 MI«OEV 


EQU 


* 


0008ECI 


4100 9O9O 


=0019601 


955 


BAL 


RO.MOHOTN 


OOOSFOI 


OEAO 8FB3 


=0018A7I 


956 


OC 


RA.BKFH 


0008F4I 


4100 9088 


=0019801 


957 


BAL 


RO.NOHOTN 


ooosFei 


4130 90BC 


=0019881 


958 


BAL 


RS.LOKIN 


0008FCI 


4130 9OQO 


=0019001 


959 


BAL 


RSfZSEQ 


UU0900I 


4300 FB98 


_00049CI 


960 


B 


PEOV 




0000 0904] 


[ 


961 HIDO 


EQU 


* 


ooo90'^I 


2441 




962 


LIS 


R4,l 


0009061 


4040 9900 


=00220AI 


963 


STH 


R4,E0JFLS 


O009OAI 


4130 SEEC 


=0017FAI 


964 


BAL 


R3«t.lDA0 


OOOgOEl 


E650 9656 


=001F68I 


965 


LDAI 


R5.PDB 


0009121 


E660 9685 


=001F9BI 


966 


LDAI 


R6tPDB+61 


0009161 


E610 FF60 


=00087AI 


967 


LDAI 


Rl.NlDOFH 


00091A1 


4150 8C28 


=0015461 


968 


BAL 


R3,READPB 


00091EI 


4130 8094 


=0009661 


969 


BAL 


R3.HISTRT 


0005221 


E630 8008 


=00092EI 


970 


LDAI 


R3,HI00H 


0009261 


5030 98AA 


=0021041 


971 


STA 


R3.CPYFLG 


0009241 


4300 870E 


=00103CI 


972 


B 


CREOIS 




0000 a92EI 


973 HiDOll 


E8U 


It 


00092EI 


4O6O 96E2 


=0022141 


974 


STH 


R61COPSEC 


0009321 


4130 8EC4 


=0017FAI 


975 


BAL 


R3.LI0AD 


0009361 


E650 9662 


=001F9CI 


976 


LDAI 


R5.WRTBUF 



READ A FILE NARK WHEN EXPECTING POR 

£RR0R 

READ A FILE HARK DURING AN INPUT RE 

WRITE A FILE NARK ON OUTDEV 

WRITE A FILE HARK 

WRITE A SECOND FILE HARK 

WAIT 

BACK SPACE OVER IT 



GET THE INDEV ADDRESSES 

SET UP THE STORAGE AREA 

* !?Q4 

SET EOV RETURN 

GO READ 



GET THE COPY VALUE 

FIRST TWO DIGITS = ? 

NO - DO ANOTHER 

YES 

THIRD DIGIT = ? 

NO - 00 ANOTHER 
UPDATE 
THE iNDEV 
LOCKOUT 



YES 
WAIT 

LOCK THE INPUT DEVICE 
PRINT EOV » EOJ 

LOAD THE INPUT DEVICE ADDRESSES 



SET THE FILE HARK RETURN 
60 READ 



R04 



SET THE COPY FLAG 

GO TO THE CREATE ROUTINE TO WRITE 

SAVE THE SECTOR NUHBER 

LOAD THE INPUT DEVICE ftOORESSES 



nDG09220 
H0G09230 
HDGU9240 
HOG09250 
MOGU9260 
H0e09270 
HOG09280 

noeo929o 

MDGU9300 
BOS09310 
H0G09320 
H0609330 
MDGU9340 
nOG»»9350 
MDG«'9360 
WDG09370 
M0SU9380 
MDG"9390 
HOG«9400 
HOG09410 
HOGU9420 
fi|OG09430 
MDG«9440 
MOG"9450 
nOG09460 
HOSO947O 

Hoeu94ao 

MOS«'9490 
M0GU9500 
nDG095lO 
HO609520 
«DS«9530 
HOGO9S4O 
MDe09550 
HOG "9560 
HOG09570 
nDG09580 
HOGO959O 
HOG^9600 

HDGd96lO 
MD609620 
M0609630 
nD6l'9640 
HOGO965O 
IH0S«9660 
HOG09670 
HD809b80 
MDe09690 
HOS09700 
MDG09710 
HOG09720 
HDG09730 
J1D6*'9740 
HDGO975O 
SDG09760 



HHO generator Ofr-lTTFOaRO'tMgiAlS 



00093AI 
00093CI 
00091*01 
»0D09l*<tI 
0009t8l 
0009^AI 
00091(.EI 

C00956I 
ooogsAl 

00095EI 

0009621 
0009661 

0009681 
00096AI 
00096CI 
0009701 

0009721 
0009761 
0009761 
00 097 A I 
00097E1 
0009821 
0009861 



00098AI 
00093Ei 
0009921 
00099m 
0009981 
00099AI 
00099EI 
0009A2I 



00a9A6l 
0009AA1 
0009AEI 
0009B2I 



0865 
4830 
«*330 
CA60 
2731 
1*030 

C830 
.. n zn 

E610 
tl30 

tsoo 

0000 
4830 
2336 
0A63 
0711 
itOlO 
220F 
0000 
E650 
0865 
2664 
E610 
tl30 
C810 
43U0 

0000 
4130 
E650 
0865 
4830 
0A63 
4880 
4130 
4300 
0000 
0000 
4130 
4880 
4130 
4300 



9808 
601E 
OOPF 

9SCA 
OOFF 



:002218I 
:Q009621 



r002218I 



—nrt^ri^ A t 



=0009821 
=0015461 
:00&96AI 



8028 

8BE8 

3328 

09621 

96b0 =0022161 



98A6 

09721 
9626 



:Q022161 
:001F9C1 



8028 
8BC4 
OODO 
934A 

098AI 
8DF4 : 
960a : 



:0009A6I 
S001546I 

j00lCD4l 



0017821 
O01F9C1 



9682 =00221A1 



9876 : 
88D4 = 
FF88 : 
087AI 
09A6I 

aooe : 

9866 : 

87A6 : 

FEE8 : 



0022141 
0012761 
00092EI 



0017821 
;002214I 
:001158I 
;00089EI 



977 

978 
979 
980 
981 
982 
983 

985 
986 
967 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
99S 
999 
luuo 
lOOl 

looa 

1003 
1004 
1005 
1006 
1007 

lOOa 

1009 
lOlO 
lOll 
lOl2 
1013 
1014 
1015 
1016 
iOl7 

lOie 

1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 



HiDOLB 



HIDONL 



MiOOER 

niDoi 



HiDOFH 
HtDOEN 



LDAR 

LH 

BZ 

AAI 

SIS 

STH 

LHI 

sth 
ldai 

BAL 

s 

ESU 

UH 

BZS 

aar 

XAR 

STH 

as 

EQU 

LOAI 

LDAR 

AIS 

LOAI 

BaL 

LHI 

B 

EQU 

BAL 

LOAI 

LDAR 

LH 

AAR 

LH 

BAL 

B 

EQU 

EQU 

BAL 

LH 

3AL 

B 



R6fR5 

R3,NUnBLK 

HIDOLB 

R6.X»FFt 

R3.1 

RStNUHBtK 

R3.X'FF» 

R3,CURBLK 

RliHIDOrR 

R3,READPB 

R3.LSTBLK 

NIDONL 

R6iR3 

Rl.Rl 

Rl.LSTBLK 

niDOZX 

* 

R5»WRTBUF 

R6.R5 

R6tH 

RltMlOOEN 

K3<nEADP5 

R1,X»D0» 

ERR6 



RSiLODAO 

RS.WRTBIIF 

R6.R5 

R3.CURBLK 

R6.R3 

R8,C0PSFC 

R3,AVAIL0 

MIOOll 

himofw 

R3,L00An 

rb.copsfc 

R3«DTRD0N 
COPHTl 
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SET UP THE SUFFER 
ADDRESSES 



DECREMENT THE BLOCK COUNT 



SET THE FH RETURN 
&0 READ 

LAST BLOCK 

GET THE SIZE 

= ZERO - NO BLOCK 

SET THE LAST SIZE 



SET UP TO READ 

BUT WUST SET FILE HARK *S THE COUNT 

IS EXHAUSTED 

SET FM RETURN - ERROR If NO F^ 

FILE HARK BEFORE TRANSFER COMPLETE 
OR NO FH WHEN COUNT EXHAUSTED 



LOAD THE OUTPUT DEVICE ADDRESSES 

SET UP THE WRITE BUFFfr 

VALUES 



RETRIEVE THE SECTOR 

GO WRITE TO DISC 

GO READ ANOTHER RECORD 

READ A FILE HARK WHEN EXPECTING PDR 

LOAD THE OUTOEV ADDRESSES 
GET THE SECTOR NUMBER 
WRITE EOV ON OiSc 






H I S T R T 



THIS ROUTINE WILL CALCULATE THE NUMBER OF FULL BLOCKS* AND THE ♦ 
LENGTH OF THE LAST BLOCK TO BE TRANSFERRED. IT IS CALCULATED FROH « 
THE "LOW AND "HIGH" ADDRESSES CONTftlNED IN THE POB. * 



input; R3 = RETURN ADDRESS 



output: the location "NUHBLK" = the NUHBER OF BLOCKS TO COPIED* 
THE LOCATION "LSTBLK" = THE LENGTH OF THE l-AST BLOCK, * 



H0G0977Q 

iw;0G«9780 

H0809790 

MDG09800 

MDG09810 

MDG09820 

MDG09830 

HD6O984O 

MDGOSdSO 

HDSU9860 

MDG09870 

nOS09860 

KDS«9890 

H0S09900 

HDS0991D 

HD509920 

HOGU993O 

nOG09940 

HDG09950 

MD5O99&O 

HOGO997O 

HOG099B0 

HDS09990 

MDeiUUOO 

HDGIOOIO 

HDGlOOaO 

HD610030 

HDG10040 

HDGIOO5O 

MOG10060 

HDG10070 

MDGIOO8O 

MOG10090 

("IQGlOlOO 

MDGlOllO 

HDG10120 

MDG10130 

^0610140 

HDGIOI5O 

HDS10160 

HOGIOI7O 

HOGlOlSO 

HDGIOI9O 

nDG10200 

HOG10210 

MD610220 

HDG10230 

MDG10240 

HD610250 

HDG10260 

HD610Z70 

HDG102B0 

MDG10290 

HO610300 

nOSl0310 



HHD GENERaTOR O6-177F02R0tH91ftl3 









1032 


* 










1033 


* 










1034 


*«********«*««*****«*««*«:*** 




OOOO 09B61 




1035 


HiSTRT EQU 


* 


0009661 


5030 9612 ; 


=0021CCI 


1036 


STfl 


R3.HISTRN 


0009BAI 


D350 95BE 


=001F7CI 


1037 


LB 


R5,P06*?0 


0009BeI 


D360 95B0 


=001F7FI 


1038 


LB 


R6tPD8+93 


0009C2I 


0556 




1039 


CL.AR 


R5,R6 


0009CtI 


1+280 803C 


=000A04I 


1040 


at 


LOFRHI 


0009C8I 


f330 8038 


=000A04I 


1041 


BE 


LOFRHI 


0009CCI 


0856 




1042 


SAR 


R5,R6 


aOQ9CEl 


C830 0100 




1043 


LHI 


R3.X«100' 


0009D2I 


0B35 




1044 


SAfi 


R3,R5 


0Q09Dm 


C530 OOOO 




1045 


CLHI 


R5,X«00« 


0009O8I 


2132 




1046 


BNES 


LOHIKl 


0009OAI 


2431 




1047 


LIS 


R3il 


0009DCI 


1*030 9836 


r002216I 


1048 


LOHIKl STH 


R3.1-STBLK 


OOOgEOI 


0350 9596 


=001F7aI 


1049 


LB 


R5.P0e*l8 


ooogE*! 


1158 




1050 


SLLS 


R5.8 


Oa09£6I 


D330 9591 


r001F7BI 


1051 


ts 


R5,P0B+l9 


0009€ftl 


0653 




1052 


OAR 


R5,R3 


0009ECI 


O560 958D 


=001F7DI 


1053 


LB 


R6,PDB*81 


0009F0I 


1168 




1054 


SLLS 


R6,8 


0009F21 


O330 9588 


=001F7EI 


1055 


LB 


R3,PDB+?2 


0009F6I 


0663 




1056 


OAR 


R6,R3 


0009F8I 


2761 




1057 


SIS 


R6il 


0009FftI 


0865 




1058 


SAR 


R6,R5 


0009FCI 


1*060 9818 


=0022181 


1059 


STH 


R6.NUHeLK 


OgOAOOI 


H300 802C 


=000A30I 


1060 


B 


UPDSPt 




OOOO OAOm 




1061 


LOFRHI EQU 


» 


OOOftOi+I 


0B65 




1062 


SAR 


R6.R5 


0OOAO6I 


C560 OOOO 




1063 


CLHI 


R6»X'00« 


oooaoai 


2132 




1064 


BNES 


L0H1K2 


OOOAOCI 


2<*61 




1065 


LIS 


R6«l 


oooAOd 


4060 980« 


=0022161 


1066 


L0HIK2 STH 


R6,tSTBLK 


000A12I 


0350 9564 


S001F7AI 


1067 


LB 


R5,P08*ie 


0O0A16I 


1158 




1068 


SLLS 


RStC 


000A18I 


D330 955F 


=001F7BI 


1069 


LB 


R3tP0B+19 


OOOAlCl 


0653 




1070 


OAR 


R5.R3 


OOOAIEI 


0360 955B 


=001F7DI 


1071 


LB 


R6«P0B+21 


OO0A22I 


1168 




1072 


SLLS 


R6,d 


000A24I 


0330 9556 


=001F7el 


IO73 


LB 


R3tP0B*82 


OO0A28I 


0663 




1074 


OAR 


R6«R3 


000A2AI 


0B6S 




1075 


SAR 


R6«RS 


00QA2CI 


4060 97E8 


=0022131 


1076 


STH 


R6tNUnBLK 




OOOO OASOJ 


[ 


1077 


UPDSPy EOU 


* 


0QGA5CX 


2t51 




107S 


LIS 


RB.l 


000A32I 


0766 




1079 


XAR 


R6«R6 


OOOAStI 


OE50 8033 


=0O0A6BI 


1080 


oc 


R5.0SPCM0+1 


000A38I 


D300 9520 


=001F69I 


1081 


LB 


R0,PDB+1 


O00A3CI 


4130 924C 


sooiceci 


1082 


BAL 


R3,ISHXC0 


OOOAHOI 


0660 




1063 


LOAR 


Rfi.RO 


oooAi^ai 


1164 




1084 


SLLS 


R6«<» 


OOOA'tiH 


D3SJ0 9522 


=001F6AI 


1085 


LB 


R0,PDB+2 


000A4SI 


4130 9240 


=001C6CI 


1086 


BAL 


R3.ISHXC0 



PAGE 20 15S13S57 11/13/Sl 



SAVE RETURN 

GET THE LOM OROER TWO DIGITS OF 

GET THE LOW OROER TttO DIGITS OF 

COMPARE LOW AND HIGH 

IS LOU < HIGH 7 - YES 



NO - THE SUB LOW FROM X'lOO* 

SUB LOW (R5) FROM HIGH (R3> 

DIFF. =07 

NO 

YES - THEN SET 1 

SAVE BLOCK LENGTH 

GET THE HIGH ORDER THREE DIGITS OF 

THE Low ADDRESS 

R5 = HIGH ORDER LOW AOORESS 

GET THE HIGH ORDER THREE DIGITS OF 

THE HIGH ADDRESS 



SUBTRACT 1 FOR THE BORROW USED ABOVE 
SUBTRACT LOW <R5) FROM HIGH tR6) 
STOR THE i OF FULL BLOCKS TO BE TRANS 



SUBTRACT LOW (R5) FROM HIGH (R6) 

DIFFERENCE = ? 

NO 

YES - THEN SET 1 

SAVE THE LENGTH 

SET THE HIGH ORDER THREE DIGITS OF 

THE LOW ADDRESS 

R5 = HIGH ORDER OF LOW ADDRESS 
GET THE HIGH ORDER THREE DIGITS OF 
THE HIGH ADDRESS 



STORE THE NUMBER OF FuLL 

LOAD DISPLAY 

ADDRESS 

INC MODE 



MOS10320 

nDel0330 

MDG10340 

HDG10350 

HDGlOi60 

MDG10370 

MDG10380 

HOS10390 

J«OG10400 

nOGlQtlO 

MOG10'*20 

MOG10430 

MO510440 

hDG10'*50 

MOG10460 

MDG10470 

MDGlO'tBO 

WOGlO'*90 

nDS10500 

MDG10510 

MOG10520 

MDGIO53O 

MDS10540 

«DG10S50 

H0610560 

MOG10570 

MDGIOSSO 

MDGIO59O 

HDei0600 

MDG10610 

MD6IO620 

MO6IO63O 

HOSIO64O 

MD6106SP 

HDGIO660 

MDG10670 

ttOGl0680 

HOS10690 

MDS10700 

MD610710 

MD610720 

KDSIO73O 

MOG10740 

MD610750 

HDG10760 

HOG10770 

MDS107eO 

HDG107fO 

MDSIOBOQ 

HDSlOSlO 

WDS10620 

MDS10B30 

HCei0840 

MDsioaso 

n06l0860 



HMO GENERATOR Ofe-lTTFOaROtHSlAlS 



PfiGE 21 15S13S57 11/13/81 



0OOA4CI 
OOOAifEI 
000A50I 
000A54I 
000A58I 
000A5A1 
OOOASCI 
000A5EI 
00OA60I 
000A6m 
000A6SI 
000A6AI 



000A6CI 
000a6El 
000A72I 
000A76I 
0OOA7AI 
000A7EI 
000A82I 
000A86I 
OOOASAl 
OODaSE! 
000A92I 
000A9<*I 
0O0A9BI 
0O0A9AI 
000A9EI 
000AA2I 
CI00AA6I 
OOOAAAI 
OOOAAEI 
OOOftSal 
000AB6I 
OOOABSI 
♦OOOABCl 
*OOOABEI 
000AC2I 
OOOACtl 
OOOfiCSl 
OOOaCCI 
UUOftOOI 
0OOAD4I 

OOOADel 
OODADCl 
OOOADEI 
OOOAEOl 
0OOAE2I 
000AE6I 
000AE8I 
OOOAECI 
OOOaFOI 
OOOAFtI 



0660 

9A56 

D300 95m =001F68I 

<tl30 923lf =001C8CI 

9A50 

0700 

9A50 

9A50 

OC50 8006 =000A6AI 

5830 9761* -0021CCI 

0303 

8040 

0000 0A6CI 



2'm-l 
■f040 
4130 
4130 
4130 
E650 
E660 
4130 
4130 
4130 
9DA1 
C310 
2335 
C810 
4300 
E650 
E660 
4130 
4130 
E650 
0865 
4630 
235E 
CA60 
2731 
4030 
C630 
4030 
4130 
4300 
0000 
4830 
2336 
0A63 
0711 
4010 
220D 
4130 
4300 
5U30 
4060 



9798 
88D6 
8D&0 
8A54 
94E6 
9515 
87E4 

FF28 
grcO 

0020 

OOEO 
9232 
94C2 
94F1 
aA8E 
8048 
94E6 



:00220a1 
=00134CI 
:0017FAI 
=0014021 
:00lF68I 
=001F9bI 
=00126EI 
=0009861 
^0017821 



:001CD4I 
:001F68I 
:001F98I 
:00153CI 
I0017FAI 
r001F9CI 



975C r002218l 

OOFF 

9750 S002218I 

OOFF 

974A 

679A 

815A 

0AD8I 

973A =0022161 



:00221AI 
=00126EI 
:0OOC32I 



9730 =0022161 



8004 
30C2 
96F8 
972C 



=0OOAF0I 
S000BB2I 
=0021ECl 
=0022241 



1087 
1068 
1089 
IO9O 

1091 

1092 

1093 

1094 

1095 

IO96 

1097 

1098 

1099 

llOO 

1101 

1102 

IIO3 

1104 

1105 

llOfe 

IIO7 

1108 

1109 

lllO 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

Ilia 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1136 

1139 

II4O 

1141 



ospcmd 

DiHO 
* DISC 



01«0l 
OTHONX 



niM02X 
OIMOL6 



DiHONL 
COPDVE 



OAR R6iR0 

HDR R5iR6 

LB ROtPOa 

BAL RS.ISHXCO 

WDR RSiRO 

XAR RO.RO 

UDR RS.RO 

WDR R5,R0 

OC Rs»DSPcwa 

UDA R3tNISTRN 

3R R5 

DC X»8040« 

EOU « 

INPUT - MAS TAPE OUTPUT 

LIS R4,l 

STH R4fE0JFL6 

BAL RStUPDTPT 

BAL RSttlOAO 

BAL RS.OIRPeH 

LDAI RgtPOB 

LDAI R6.P0B+S1 

BAL R3«AVAILR 

BAL R3,HISTRT 

BAL RSiLODAn 

SSR RAtRl 

THI R1,X'20» 

BZS DIMOl 

LHI RltX'EOf 

B ERR A 

LDAI R5.PDB 

LDAI R6.P0B+51 

SAL R3.WRTPR 

BAL RS.tlDAD 

LDAI R5,MRTBUF 

LDAR R6«RS 

LH RS.NUHBLK 

BZ DIMOLB 

AAI R6.X«FF' 
SIS R3.1 
STH R3»NUMBLK 
LHI R3.X»FF» 
STH R3,CURBlK 
BAL R3,AVAIlR 
B DIHOIX 
EOU * 

LH R3.LSTBLK 
BZS OinONL 
AAR R6.R3 
XAR Rl,Rl 
STH Rl.USTBLK 

BS oinozx 

BAL R3.C0P0VE 
B OIHOEE 
STA R3,DIRTN 
STH R8.DIN0ST 



NORK / INC 

FIND THE STARTINS POSITION 

CONVERT THE POINTER To LOC. 

* R04 

READ THE POB FroH DISC 
SET THE NUH. OF BLKS. TO BE COPIED 
LOAD THE OUTPUT OEV. aOD. 

BOT 7 

NO 

YES - ERROR 



WRITE POB ON 

TAPE 

LOAD IN ADO. 

SET THE ADDRESS 

GET « OF BLOCKS 



R04 



NO DATA SHOULD BE LEFT FOR THIS 
PR06RAH - SAVE CYl • HEAD - SECTOR 



MDS10670 
nD610&B0 
HOS10890 
MOS1090C 
SDS10910 
IKIDG10920 
nD5l0930 
HDG10940 
MnciQ950 
MOsi0966 
HDG10970 
fiiOS109SO 
HD610990 
HOGllQOO 
MDGllOlQ 
«DG11020 
HD6IIO3O 
I«IDG11<'40 
MDSIIO5O 

HOGllOfeO 

HDS11*'70 

HOGllOSO 

("IOG11090 

BDSlllOO 

MD6XX''iO 

MDG11120 

n0611130 

«10S11140 

HOG11150 

HDG11160 

HOGIII7O 

MOGlllSO 

MDS11190 

«DS11200 

HDSlliilO 

n061l220 

HDG11230 

I»DG11240 

NI0G1125Q 

HDG11260 

H3G11270 

HDG11280 

MOGII29O 

MDG11300 

MOG11310 

MDG11320 

HOG11330 

nDeil340 

HDG11350 

MDS11360 

nDGll370 

I1OG11380 

HOG11390 

HDGll'tOO 

MDG11410 



mo GENERATOR 06-177F02R0'tH91A13 



PASE 22 X5:13!57 lX/i3/81 



OOOAFal 
OOOAFCl 

uuubooi 

QOOBOm 
GOObOBI 

OOOBIOI 
OOORltl 
000B18I 
OOOBICI 
OOOB20I 
000R22I 
000B26I 
000B2AI 
OOOrSEI 
00OB32I 
U0OB36I 
000B3AI 
000B5EI 
0OOB42I 
O0OB<>6l 
OOOB'^Al 
OOOBtel 
000B52I 
0006561 
*00OB5Al 
a00B5Cl 
000B60I 
00OB6<fI 
000B66I 

oooe&8i 

OOOB&CI 
000B70I 
00OB72I 
O00B761 
0OOB7AI 
00OB7EI 
O00B6OI 
0008841 

oooassi 

OQ0B6AI 
000B8CI 
0008901 
0009941 
*000B9eI 
000B9AI 
O0OB9CI 
OOOBAOI 
OOnBAZI 
0006A4I 
OOQBAal 
GOOBACX 

oooseoi 

000BB2I 
OOOSB&I 



4880 9706 : 
4080 9726 : 
4880 96FC •■ 
4080 9720 : 
4880 96fl0 : 
4830 969E : 
4030 g6EE : 
4830 9698 ; 
tU30 96E4 i 
4620 9692 
2628 

C520 0100 
4330 8054 
4020 9684 
4130 8EDE 
4130 gEA8 
OEAO 8075 
4130 aED2 
£650 956A 
£660 9665 
4130 8E94 
4130 89CC 
4620 9660 
4632 955A 
4530 96CE 
21 3E 

4830 96C6 
0342 954F 
0534 
2138 

4830 96Be 
0342 9542 
0534 

4330 8036 
C810 OODO 
4300 9156 
2681 

4840 96aA 
4584 F90C 
2334 
0722 

4300 FF9A 
4630 966E 
4534 f9DA 
2336 
2631 

4030 9662 
0722 
0788 

4300 FF82 
4020 9606 
5830 963C 
0303 

4130 6BCC 
OEAO 8CF1 



:002202I 
=0022261 
-0022001 

=0022281 
=0021ACI 
=0Q21flEI 
=0022021 
=0021601 
-0022001 
=0021821 



:000B7EI 
:0021B2I 
:001A1*JI 
:0Q19DEI 
:0018AF1 
:001A10I 
z0020ACI 
:0021ABI 
:0019DEI 
=00151AI 
=0021821 
=0020801 
=0022281 

=0022261 
=0020B3I 



=0022241 
=0020821 

=0OOBACI 

=001CD4I 

=00220E1 

=0005641 



:000B2AI 
-0022021 
:000S72I 



=0022021 



:00OB2Al 
=0021621 
=0021ECI 

=0017821 
=0018ABI 



1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1169 

1190 

1191 

1192 

1193 

1194 

1195 

1196 



Q1M0P5 



niHOSH 
OlHOPP 



DinOP4 



DIMOSA 
DiMOSP 

OlHOEE 



LH R6,HEAD 

STH Re«0IH0ST+2 

LH Rfl.CYL 

STH R6.DIM0ST+4 

LH R8tDC0PY 

LH R3.DC0PY+2 

STH R3tHEAD 

LH R3.0C0PY+4 

STH R3.CYL 

LH R2,0C0PY+6 

AIS R2.8 

CLHI R2,X»100' 

BE DIHOPP 

STH R2,0C0Py+6 

BAL R3iFRSRU 

SAL R3,H0FT 

OC R A, SEEK 

BAL R3,FRSRU 

LOAI RStOIREcT 

LOaI R6.0IRECT+255 

BAL R3,W0FT 

BAL RS.ROISC 

LH R2|0C0PY*6 

LH R3t0lRECT+4tR2) 

CLH R3.0IH0ST+4 

BNE DINOSH 

LH R3.DIB0RT+2 

LB R4,DIRECT+7(R2) 

CLAR RZ,m 

BNES OinOSH 

LH RSiOINOST 

LB R4.DIRECT+6(R2) 

CLAR R3,R* 

BE DIHOSP 

LHI Rl.X'OO" 

B ERR A 

AIS Red 

LH R4,CUTRK0EN 

CLH R6.SECTaS(R4» 

BES 0in0P4 

XAR R2,R2 

B D1I10P5 

LH R3,HEAD 

CLH R3<HDTAB(R4) 

BE DIHOSA 

AIS RSti 

STH RStHEAD 

XAS R2.R2 

XAR R8.R8 

B 0IH0P5 

STH R2.0COPY+6 

LDA R3,DIRTN 

BR R3 

BAL RSiUOOAO 

OC RA.WFH 



STORE HEAD 

ST0«E CYL 

GET DIRECTORY INFO 

SECTOR 

HEAD 



INCREMENT 
= X'lQO* ? 



SET UP FOR READ 

READ THE DIRECTORY 

GET THE CYL FRO" DIRECT 



HEAD 
SET HEAD 



INC. SECTOR 



NO 
YES 

GET HEAD 



SET INPUT OEV. 



HDSlt*20 
HOG11430 
M0Gll't4Q 
MQS11450 
MDGll'^60 
«DG11'*70 
HDG11480 
HDG11'*90 
HOGlliOO 
M0G11510 
W0G11520 
HDS1153D 
Hi)G11940 
H0G11550 
HDS11560 
I1DG1157Q 
HDGll^SO 
HOGH590 
MDS11600 

noeii^io 

nC51l620 
MDG116S0 
l«!DG11640 
WDeil&50 
HDG11660 
MDG11670 
HDGllfaSO 
MDG11690 
nD61l700 
HDGH710 
MOG11720 
HOG11730 
BDGH740 
HDGH750 
M3eil760 
HDG11770 
HOSH780 
MOG11790 
W0G11800 
MOG11610 
MOG11620 
NDG11630 
HOG11640 
RDGllSSO 
MDG11660 
M0G11670 
f4DSll660 
■DS11690 
HDG11900 
«i3G11910 
I«(0G11920 
H0S11930 

«OSll940 

HOS11950 
MOSH960 



MHD GENERATOR 06-177F02ROitM91A13 



PASE 2S 15:13:57 11/13/31 



OOOBBAI 
0008BEI 
0OOBC21 
000BC6I 
OOOBCAI 
OCOBCEl 

000BD2I 
U008O6I 
OOOBOAl 
OOOBDEI 
000BE2I 
O00BE6I 
OOObEAI 
OOOBEEI 
000BF2I 
000BF6I 
OOOBFAl 
OOOBFCI 
OOOBFEl 
OOOcOal 
OOOcOfel 
OOOCOAI 
OOOcOeI 

oonci2i 

000C16I 
OOOClAl 
OOOClEl 
000C22I 
0OOC26I 
000c2fll 
000C2EI 

000C32I 
000C36I 
000C3AI 
000C3CI 
OOOCtOI 

oooctai 

000CM-6I 



000C4A1 

oooctci 

00OC5OI 

ooocsti 
ooocsel 

000C5CI 
UUUC60I 
000C64I 
O0OC6SI 
000C6CI 
0tl0c70I 
O0OC74I 



1(100 
DEAO 
4100 
DEAO 
•HUO 
1(130 
0000 
1(130 
•(620 
C520 
"(330 
"(832 
"(330 
1(530 
4230 
D332 
D3<(0 
055«( 
213B 
1(830 
1(030 
02<(0 
1(130 
«(3«0 
DOUo 
1(8^2 
4030 
0332 
0230 
4300 
1(130 
1(130 
4300 
0000 
4130 
E650 
0665 
4630 
0A63 
4130 
4300 

OOlJO 
2441 
4040 
4130 
4130 
4130 
E650 
E660 
4130 
4130 
4060 
4660 
4080 



6DC2 = 
6CE9 = 
aOBA 
8CE3 
8DB2 
8DF2 = 
0BD2I 
8C24 = 
95D8 - 
0100 
8044 = 
94C6 = 
a03C = 
9502 = 
8020 s 
94B8 = 
95C8 = 



0019801 
0018ABI 
0019801 
OOISAOI 
0019801 
0019C4I 

0017FAI 
0021B2I 

O0OC26I 
0020ACI 
000C26I 
0021C«I 
00OC12I 
0020AEI 
0021C2I 



95BE 
92E6 
92E4 
80C2 

A A AC- ■■ 

0C12I 

9496 

9202 

9490 

92CC 

FB6C 

eOSE 

80A2 

F86A 

0C32I 

8B4C 

9362 



:0021CdI 
rOOlEECI 
:001EEEI 
:0019DOI 
:0016C«I 

:0020ACI 
sOOlEECI 
:0020AEI 
sOOlEEEI 
:000792I 
r0019B8I 
:0019D0I 
:00049CI 

:001782I 
:001F9CI 



95DA =00221AI 

S8F6 =00153CI 
FE64 =000AAei 



0C4AI 

95BA 
86F8 
eBA2 
8876 
9308 
9537 
6606 
F04A 
95BA 
958E 
9564 



:00220aI 
:00134CI 
:0017FAI 
=0014021 
:001F68I 
:001F98I 
=00126EI 
=0009861 
=00222AI 
10022^21 
=00222CI 



1197 
1198 
1199 
1200 
1201 
'1202 
1203 
1204 
1205 
1206 
1207 
1206 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1250 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1236 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 



BAC 

oc 

BAL. 
OC 
BAL 
BAL 
DICOHN EQU 
BAL 
LH 
CUHI 
BE 
LH 
82 
CLH 
BNE 
LB 
LB 

CLAR 
BNES 
LH 
STH 
STg 

BAL 
a 

QIMONH too 
LH 
STH 
LB 
STB 
S 

DTMOEV BAL 
BAL 
B 

OIMOIX EOU 
BAL 
LDAI 
LDAR 
LH 
AAR 
BAL 
B 

* DISC INPUT 

DtDO ESU 
LIS 
STH 
BAL 
BAL 
BAL 
LDAI 
LDAI 
BAL 
SAL 
STH 
LH 
STH 



RO.NOHOTN 
RA.ttFH 
RO.NOHOTN 
RA.BKSP 
R0,NOMOTN 
RS.LOKOIIT 
* 

RStLIOAO 
R2,0C0PY'»6 
R2,X»100« 
DIHOEV 

R3,DIRECT(R2) 
OIHOEV 
R3.PGHNUH 
DIHONM 

R3,DIRECT+2iR2) 
R4»PSHNun*2 
R3,R4 
OINONH 
R3,P6HNllH 
R3.P6HIPN 
R4.PSMIPN+2 
RSiZSEq 
PEOJ 
* 

R3«DIRECT(R2) 
RSiPGHIPN 
R3.DIRECT*2{R2> 
R3,PSMIPN+2 
COPYl 
R3.L0K1N 
R3«ZSEe 
PEOV 
* 

R3«LO0AD 
R5.HRTBIJF 
R6tR5 
R3.CURBLK 
R6,R3 
R3,WRTPR 
DIHONX 
- DISC OUTPUT 
» 

R4.1 

R4,E0JFLG 
R3.UP0TPT 
R3»LIDA0 
R3,DlRPsn 
R5,PDB 
R6,PDB*5l 
R3.AVAILR 
R3i«ISTRT 
Re»DIDOIN 
R8.HEA0 
R8«DID0IN->^2 



URITE EOV ON TAPE 



LOCK THE OUTPUT DEVICE 
DISC INPUT COMMON 
LOAD INPUT DEVICE 

s TO X»100» 7 

NO - EOV? 
YES 

NO - FIRST TWO DIBITS s 
COPY ANOTHER 
SET THIRD DISIT 

s 7 

NO - COPY ANOTHER 
YES - COPY NO nORE 
UPDATE LOCK WORD 



UPDATE JHE LOCK WORD 

SO THAT XT HILL BE FOiINO 

ON The NEXT SEARCH 



LOCK INDEV 



LOAD THE OUTPUT DEVICE ADDRESSES 



GET THE SIZE 



FIND THE STARTING POSITION 

CONVERT TO ACTUAL LOCATION 

« R04 

READ THE PD8 FROM DISC 
SET THE NUM. OF BLKS. TO BE COPIED 
SAVE INPUT POINTERS 



MDS11970 

HOeil980 

H0S11990 

PIDS120<>0 

MDG12010 

nDSl2020 

MDG12030 

H.3S1204.0 

M0ei2550 

nD612060 

HOS12070 

HDG12Deo 

nD612090 

HDG12100 

M0612110 

HDG12120 

noG12130 

MDS12140 

MD612150 

MD612160 

MDG12170 

HDei2X80 

MD612190 

H0ei2200 

HOG12210 

MOS12220 

MDG12230 

M0ei22i(Q 

MOG12250 

HOG12260 

HDS12270 

HDG12280 

MOG12290 

WOG12300 

MDG12310 

H0G12320 

MD612330 

?4DG12340 

HDG12350 

HDG12360 

HOS12370 

HI-.G12380 

MDG12590 

MOG12400 

HDG12410 

MDG12420 

H0G12430 

l»IOGl24i(0 

MDG12'*50 

I"!OG1^'^60 

MOG12470 

Moei24ao 

HOG12490 

nDei25oo 

HD612S10 
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000C78I 
000C7CI 
OOOcSOI 

ooocsti 
ooocaai 
oooceci 

OO0C90I 
000091*1 
OO0C98I 
000C9CI 
OOOcflOI 
0O0CA<H 
OOOCASI 
OOOCACI 

ooocboi 

OOOCBf I 
000CB8I 
OOOCBCI 
OOOCCOI 
000CC2I 
«00OCC&I 
*0OOCC8l 
QOOCCCl 
OOOCCEl 
0OOCD2I 
000CD6I 
OOOCOAl 
OOOCDEI 

OOOCEOI 
OOOCE'tl 
000CE6I 
OOOCESi 
OOOCEAI 
QOOCEEI 
OOOCFQI 
OOOCFtI 
0O0CF8I 
OOOCFCI 
OOOoOOI 
0000041 
OOOoOSI 

ooodoci 
ooooioi 
ooooiti 
ooooisi 

OGGC '"I 

ooonaoi 

000o2<*I 
000D28I 
000D2AI 
QO0O2EI 
OO0D501 
OOOdS"*! 



itBBO 958"* =0022001 

tOeO 95AE =0Q222EI 

tl30 8AFE =0017821 

E630 800S =000C90I 

5030 951*6 =0021041 

4300 83AC rOOlOSCi 

4O8O 959c 

4880 956A 

4O8O 9596 

4860 9560 =0022001 

4O6O 95g0 =0022341 

4130 eB52 

4880 9582 

4O6O 9550 

4880 9576 =00222Cl 

4080 954A =0022021 

4880 9S6E =00222AI 

E650 920C 



:002230I 
:002202I 
=0022321 



=0017FAI 
=00222EI 
50022001 



:001F9CI 



0865 

4830 9552 =0022181 

2330 

CA60 OOFF 

2731 

4030 9546 =0022181 

C630 OOFF 

4030 954O =00221AI 

4130 6590 =00126el 

2300 

0000 OCEDI 

4630 9532 =0022161 

2336 

0A63 

0711 

4OIO 9528 =0022161 

220C 

4130 FDFC sOOOAFOI 

4300 8040 =0000381 

4O8O 952E =00222AI 

4880 9SO2 =0022021 

4O8O 952S =0022201 

4660 9*F8 =0022001 

4O6O 9522 =00222EI 

4880 9524 =0022341 

4O6O 94EC =0022«'0i 

4880 951A =0022321 

4O8O 94E6 =0022021 

4360 9510 =0022301 

4130 8A5E =0017621 

E650 9274 =001F9CI 

0865 

4630 94EC =00221AI 

0A63 

4130 8542 =0012761 

43OO FF58 =OOOC90I 

0000 0D38I 



1252 tH 

1253 STH 

1254 BAL 

1255 tOAl 

1256 STA 

1257 B 

1258 OTDOll STH 

1259 LH 

1260 STH 

1261 LH 

1262 STH 

1263 BAL 

1264 LH 

1265 STH 

1266 LH 

1267 STH 
1266 LH 
1269 LOAI 
1^70 LDAR 

1271 LH 

1272 BZ 

1273 AAI 

1274 SIS 

1275 STH 

1276 LHI 

1277 DID02X STH 
1276 BAL 

1279 BS 

1280 DiDOLB EQU 

1281 LH 
1262 BZS 
1283 ftAR 
1264 XAR 
1285 STH 
1266 BS 
1287 DiDONL BAL 
1266 B 

1289 DIDOIX STH 

1290 LH 

1291 STH 

1292 LH 

1293 STH 

1294 LH 

1295 STH 

1296 LH 

1297 STH 

1298 LH 

1299 SAL 

1300 LOAI 

1301 LDAR 

1302 LH 

1303 AftR 

1304 BAL 

1305 B 

1306 DTDOEE EQU 



Re.CtL 

RBtOIOOTN4'4 

R3,L0DAn 

R3,D1D011 

R3,CPYFLG 

CREOIS 

RS.DIDOnU 

R8,HEAD 

R8.0IOOOU+5 

R6.CYL 

R8,0ID00U+4 

R3.LIDA0 

R8.DID0IN+4 

R81CYL 

RetOIDOIN+2 

R6«HEA0 

R6tDID0IM 

RS.WRTBllF 

R6tR5 

r3;nuhblk 

OIOOLB 

R6,X'FF« 

R3,l 

RS.NUMBl K 

R3tX'FF' 

R3.CURBLK 

RS.AVAILR 

OIOOIX 

R3<LSTBLK 

OIOONL 

R6.RS 

Rl.Rl 

Rl.LSTBLK 

0ID02X 

R3,C0PDtfE 

DIDOEE 

R8,DID0IN 

RBtHEAD 

R8<0I00IN'*'2 

R8.CYL 

R6tDID0IN+4 

R8«DIDOOU4-4 

RS.CYL 

R8«01O0OU+2 

R81HEAD 

R6«0ID00U 

R3«LO0AD 

RStWRTBuF 

R6tR5 

R3tCURBLK 

R6»R3 

R3,AVAIi.O 

DIOOll 



LOAD OUTPUT 

SET THE COPY FLAG 

WRITE PDB ON SECOND OISC 

SAVE OUTPUT POINTERS 

LOAD INPUT DEVICE ADD'. 

SET INPUT DISC PARAMETERS 

CYL 

HEAD 

SECTOR 

SET UP TO READ 
ANOTHER BLOCK 



READ FROM INPUT DISC 



LAST BLOCK 7 
NO - NONE LEFT 
YES 



IS THIS TRUELY THE END ?? 
YES 

SAVE THE INPUT FARMS. 



LOAD THE OUTPUT PaRHS 

CYL 

HEAD 

LOAD THE SECTOR 



WRITE TO THE DISC 

SAVE THE DIRECTORY PARHS 



MDG12520 

HOS12530 

NOS12540 

MDG12550 

MOS12560 

HDG12570 

HDel25aO 

MDS12S90 

MDG12600 

HiJS126lO 

HOei2620 

H0G1263D 

M0G126*0 

HDG12650 

MDS12660 

HOG12670 

MDG12660 

HDG12690 

HOG12700 

MCG12710 

BDG12720 

I10G1273C 

HOG12740 

HDS12750 

POG12760 

KOG12770 

«DS12760 

HDS12790 

nOG12800 

no6i2aio 

nDSl282o 
HO612630 
MOG12640 
H0612850 
MaG12860 
MDG12670 
MOG12680 
MDG12690 
nOG12900 
MOS12910 
H0ei2920 
nOG12930 

noei2940 

HDG12950 
MDG12960 
«OS12970 
MOG12980 
MDS12990 
HDS13000 

noGlscio 

M0613020 
HDG1303Q 
HDGI3O4O 
HOGI3O5O 
nO613060 
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0000361 


4080 


94EE 


=00222AI 


1307 


STH 


RS.DIDOIN 


00003CI 


4880 


94C2 


=0022021 


1308 


LH 


RS.HEAD 


0U0D40I 


4080 


94E8 


=0022201 


1309 


STH 


R8«DID0IN*2 


OOOofftl 


4880 


9486 


-OO22OO1 


13l0 


LH 


Re.CYL 


OOODtSI 


^080 


94E2 


=00222EI 


1311 


STH 


Re.DID0lN*4 


OOOD'tCl 


4130 


8A32 


=0017821 


i3l2 


BAL 


R3.L0DAD 


OOOD50I 


4830 


93it8 


=00209CI 


1313 


LH 


R3,DIRPRM 


00005!*I 


4030 


94AA 


=0022021 


I3m 


STH 


R3<HEA0 


i^nnrsca T 


i.oan 


nXii n 


— nnnnap-f 


i Ta e 


1 Li 


n ft nvnif u>n 


W V KJU^O* 




•yv-ve. 


»WUfc* i^C. A 


*'-'*3 


fc,n 


r\o fuinrrtri-rc 


00005CI 


D320 


F2Eft 


S00004AI 


1316 


LB 


R2.S00 


0000601 


4020 


949C 


=0022001 


1317 


STH 


R2,CTL 


0000641 


4130 


8CAS 


sOOlAiOl 


1318 


SAL 


R5,FRSRU 


0000681 


4130 


8C72 


=0019DEI 


1319 


BAL 


R3.ttDFT 


OO0D6CI 


DEAO 


8B3F 


=0018AFI 


1320 


OC 


R A. SEEK 


0O0D70I 


4130 


8C9C 


rOOlAlOl 


1321 


BAL 


R3.FRSRW 


000D7m 


E650 


9334 


=0020ACI 


1322 


LDAl 


R5, DIRECT 


000D78I 


E660 


942F 


=0021ABI 


1323 


LOAI 


R6,DIRECT*255 


000D7CI 


4130 


8C5E 


=0019DEI 


1324 


BAL 


R3tWDFT 


ooooaoi 


4130 


B796 


sOQlSlAI 


1325 


BAL 


R3,RDISc 


0000841 


4880 


94AC 


=0022341 


1326 


LH 


Ra,DI0ooU+4 


ooooeei 


4080 


9474 


=0022001 


1327 


STH 


Ra.CYL 


000D8CI 


4880 


94A2 


=0022321 


1328 


LH 


Re.DIDOOU+2 


000D901 


4080 


946E 


=0022021 


1329 


STH 


RS.HEAD 


oooogiti 


4860 


9498 


=0022301 


1330 


LH 


R8.DI000U 


000O98I 


4130 


83BC 


=0011561 


1331 


BAL 


R3.0TRDON 


0OOD9CI 


4880 


948E 


=00222EI 


1332 


LH 


R8.0ID0IN+4 


OOODAOI 


4060 


945C 


=0022001 


1333 


STH 


RS.CYL 


OOODAtI 


4880 


9464 


S00222CI 


1334 


LH 


RefDlOOIN+2 


0O0OA8I 


4080 


9456 


=0022021 


1335 


STH 


RS.HEAD 


OOOOACI 


4880 


947A 


=00222AI 


1336 


LH 


R8,DID0TN 


OOODBOI 


4130 


8A46 


=0017FAI 


1337 


3AL 


R3,LIDA0 


OOODBtl 


4130 


aC58 


=001A10I 


1338 


BAL 


R3,FRSRU 


000D38I 


4130 


8C22 


=0019DEI 


1339 


BAL 


R3.W0FT 


000D8CI 


DEAO 


SAEF 


=0016AFI 


13H0 


OC 


R A. SEEK 


OOODCOI 


4130 


8C4C 


=001A10I 


13itl 


BAL 


R3,FRSRu 


0Q0OC41 


E650 


92E4 


=0020ACI 


1342 


LDAI 


R5. DIRECT 


000OC8I 


E660 


93DF 


=0021ABI 


13<t3 


LDAI 


R6,0IREcT+255 


OOODCCl 


4130 


6C0E 


=00190EI 


1344 


BAL 


R3.W0FT 


OOOODOI 


4130 


8746 


=00151AI 


131*5 


BAL 


R3.RDISC 


ooonDti 


4300 


FDFA 


=0008021 


13«*6 


B 


DICOMN 










13lt7 


^,ti*if**nnt*:******:*****mm*****m* 










l3^a 


* 












1349 


* I N I T 












1350 


• 












1351 


«***««**»**«*»«**»*♦*♦«»*««♦♦ 










1352 


* 












1353 


* THIS ROUTINE IS USED TO 










1354 


* OR DISC. 












1355 


* DEVICE 










1356 


♦ 












1357 


* HAS TAPE 










1358 


* CASSETTE 










1359 


« 












1360 


« 












1361 


« 





LOAD THE OUTPUT DIRECTORY IN BUFFER 



SET START 



LOAD THE OUTPUT PARHS 
CYL 

HEAD 

SECTOR 

WRITE EOV ON THE DISC 

LOAD THE INPUT PARMS 

CYL 

HEAD 

SECTOR 

LOAD INPUT ADDRESSES 

SET UP FILR 

SEEK 

SET UP FOR READ 



READ INPUT DIRECTORY 

* 
* 
» 

INITIALIZE A HAG TAPE - CASSETTE - * 



OPERATION PERFORHED 



THE TAPE IS CHECKED TO BE SURE 
THE TAPE IS AT LOAD POINT, 

1. A FILE HARK IS WRITTEN 

2. BACKSPACE OVER THE FILE MARK 



«DG13U70 
MO613080 
«O613090 
HDS13100 
nO613110 
H0ei3l20 
H0S13130 
MD613140 

un^i 7 1 en 

DUO A^'^ilW 

HOS13160 
H0G13170 
nOGlSlaO 
HD613190 
BD613200 
HDS13210 
HDG13220 
MOG13230 
MDS13240 

nosi32so 

HDei3260 
HDG13270 
nDGl3280 
MOei3290 
HOG13300 
HO613310 
!<1DS13320 
MDS13330 
nOGl3340 
HDG13350 
HDG13360 
HDG13370 
nDGl3360 
«DG13390 
HuG13400 
MQG13410 
n0613420 
HDG13430 
H0G134lf0 
HD613450 
HDG13460 
HDG13470 
MOG13480 
HDS13490 

HDS13500 
nOG135lQ 
nOS13520 
HDG13530 
HOG13540 
HOS13550 
H0ei3560 
HDG13570 
nD6135S0 
MOG13590 
MD613600 
«DG13610 
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1362 


* 














1363 


* 














1364 


* 














1365 


* 


DISC 










1366 


* 














1367 


* 














1368 


* 














1369 


* 














1370 


* 














1371 


* 














1372 


* 














1373 


* 














1374 


« 














1375 


* 














1376 


* 














1377 


*«**«****«****««*««****««*«* 


000OD8I 


4130 


89A6 


=0017821 


1378 


INIT 


BAL 


RS.LODAO 


OJOOOCI 


C510 


0003 




1379 




CLHI 


Rl,3 


OOODEOI 


4280 


8IO4 


=000EE8I 


1380 




BL 


INTAPE 


OOOOEtl 


2441 






1381 




LIS 


R4.1 


000OE6I 


4040 


9420 


=0022OaI 


1382 




STH 


R4,E0JFLG 


OOODEAI 


DEBO 


SABE 


=0016ACI 


1383 




oc 


RB,STOP 


OOODEEI 


DECQ 


6ABE 


=0018801 


1384 




OC 


RC, RESET 


O00OF2I 


0733 






1385 




XAR 


R3.R3 


OOOOFtI 


90A1 






1386 


lOWT 


SSR 


RA.Rl 


0Q0OF6I 


C310 


0010 




1387 




THI 


Rl,X'10» 


OOOOFAl 


2033 






1388 




BNZS 


IDMT 


OOODFCI 


D310 


F24A 


=00004AI 


1389 




LB 


Rl.SOD 


UUOeOOI 


4010 


93FC 


=0022""! 


139O 




STH 


Rl.CYL 


OOOEOiH 


4130 


8BD6 


=0019DEI 


1391 




BAL 


R3.W0FT 


ooocoai 


DEAD 


8AA5 


=0018811 


1392 




OC 


RA.RESToR 


OOOEOCI 


4130 


SCOO 


=001A10I 


1393 




BAL 


RS.FRSRW 


OOOEIOI 


0700 






1394 




XAR 


RO.RO 


00OE12I 


2410 






1395 




LIS 


Rl.O 


OOOEl"*! 


2422 






1396 




LIS 


R2.2 


000E16I 


C830 


OOFE 




1397 




LHI 


R3,X»FE» 


OOOElAl 


4001 


917E 


=001F9CI 


1396 


INITHF 


STH 


R0.MRTBUF(R1> 


QOOEIEI 


Clio 


FFFa 


=000E1AI 


1399 




8XLE 


Rl.INITZF 


000E22I 


4130 


aBBS 


=0019DEI 


1400 


INlTSK 


BAL 


RStMDFT 


O00E26I 


OEAO 


6A85 


sOOlBAFI 


1401 




OC 


RAtSEEK 


00OE2AI 


4130 


8BE2 


=001A10I 


1402 




BAL 


R3,FRSRU 


000E2EI 


2430 






11*03 




LIS 


R3fO 


aUOESOI 


4030 


93CE 


e002202l 


1404 




STH 


R3,HEA0 


000E34I 


0768 






1405 


srckix 


XAR 


R8.R8 


0OOE36I 


4130 


8BA4 


=0019DEI 


1406 


srcki 


BAL 


R3.W0FT 


00OE3AI 


4150 


8BF8 


=0Q1A36I 


140? 




BAL 


RStRCHK 


oooe:3ei 


4830 


93B2 


=Q021F4I 


1408 




LH 


RSsCONSTA 


00nEt2l 


C330 


0020 




lftl9 




THI 


R3,X'20« 


OOOE'tfel 


4230 


3096 


=O0OEE0I 


1<H0 




BNZ 


PNGS 


000e<>AI 


E650 


914E 


=001F9CI 


l"*!! 




loai 


RSiMRTBUF 


000E4EI 


0865 






1412 




LDAR 


R6tR5 


♦000E50I 


CA60 


DOFF 




ItlS 




AAI 


R6.X'FF« 


000E54I 


4130 


8B86 


=0019DEI 


ltl4 




BAL 


R3,UDFT 


000E58I 


4130 


86C4 


=0015201 


1*15 




BAL 


RSiWOiSC 




0000 


0E5C! 


t 


1H16 


SRCK2 


EQU 


♦ 



3. 

4. 



WRITE THE BOOT LOADER 
WRITE A FILE HARK 



1. VERIFY THAT START CYLINDER IS 
ERROR FREE. (NO DEFECTIVE SECTOR 
BITS S£T) 

2. ZERO Out start cylinder. 

3. VERIFY THAT NEXT CYLINDER IS ERROR 
FREE (NO DEFECTIVE SECTOR BITS SET) 

4. SECTOR ZERO. START CYLINDER IS INIT- 
lALIZED TO INDICATE THAT KNOWN DATA 
IS ON THE DISC 



LOAD DEVICE ADDRESSES 

INITIALIZE THE TAPE. 

SET THE EOJ 

FLAG 

STOP THE SELCH 

NO . RESET THE CONTROLLER 

NO 

WAIT FOR DISC ADD. INTE«. = 



SET START 



RESTORE THE FILE 



SEEK 

SET HEAD TO 

ZERO 

SET THE SECTOR TO ZERO 

READ CHECK THE SEcToR 
SET THE STATUS 

DEFECTIVE TRACK BRANCH 



HD613620 
HOS13630 
nOG13640 
H0G136S0 
HDG13660 
nOG13670 
HDGl36e0 
M0S13690 
HOS13700 
MOS13710 
HDG13720 
HOG13730 
nOG13740 
»!QS13750 
M0G13760 
HOG13770 
nDGl3780 
MDG13790 
HD613800 
HOGlSfllO 
M0G13820 
HJG138S0 
MOG13d40 
M0G13650 
M0ei3860 
MOG13670 
H0613S80 
nOG13890 
HOG13900 
nDei39lO 
MDG13920 
MDG13930 
110613940 
H0613950 
110613960 
«DGlS970 
nOGl39S0 
MDG13990 
MDG14000 
MOGltOlO 
HO51'»020 
flDGl^OSO 
nDel'»040 
HQG14050 
HOG14060 
MDSl^OTO 
HOeittOSO 
1DG1'»090 
MD61<»10G 
MOGltllO 
MOGllJlao 
MD614130 
MOGltl40 
WDGl^lSO 
HDgi4160 
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000E5CI 


4830 


9364 


=0021C4I 


1417 


LH 


R3,TRKDEN 


000E60I 


2681 






1M.18 


AXS 


RStl 


oooe:62I 


<t583 


F6FE 


=0005641 


IHlg 


CLH 


R3*SECTaB{R3) 


000E66I 


2333 






1420 


BES 


SRCK4 


000E6aI 


4300 


FFCA 


=OO0E36I 


1421 


B 


SRCKl 


qooe:6ci 


t81i0 


9392 


=0022021 


1422 SRCK4 


LH 


R2.HEA0 


000E70I 


H5ZZ 


F6FE 


=0005721 


1<*Z3 


CLH 


R2«HDTAB<R31 


*000F7m 


233B 






1424 


BE 


SRCEND 


UO0P76I 


^sOo 


gsaa 


=0022321 


1425 


LH 


rCiKEaq 


000E7flI 


2601 






1426 


AIS 


ROtl 


oooe:7ci 


4000 


9382 


=0022021 


1427 


STH 


RO.HEAO 


OOQESOI 


4300 


FFBO 


=0OOE34I 


1428 


B 


SRCKIX 


oooEati 


4810 


9378 


=0022001 


l'»29 SRCEND 


LH 


Rl.CtL 


oooessi 


D410 


FlBF 


sO0OO4BI 


1430 


CLB 


R1,S0P 


*000E8Cl 


2337 






I'm 


BE 


UINIFO 


000E8EI 


D310 


FIB9 


S00004SI 


1432 


LB 


R1,S0P 


000E92I 


4010 


936A 


=0022001 


1H33 


STH 


RltCYL 


0O0e:96I 


4300 


FF88 


=000e22I 


1434 


B 


INITSK 


000E9AI 


0310 


FIAC 


=00004AI 


lt35 UINIFO 


LB 


Rl.SOD 


00aE9El 


4010 


935E 


=0022001 


1436 


STH 


Rl.CYL 


0OOEA2I 


0788 






1437 


XAR 


RS.Ra 


OOOEA'tl 


4080 


935A 


=0022021 


143B 


STH 


R8»HEAD 


00OEA81 


4130 


8832 


=0019DEI 


1439 


BAL 


R3.HDFT 


000E4CI 


OEAO 


a9FF 


=0018AFI 


1440 


OC 


R A. SEEK 


oooeboi 


4130 


8BSC 


=001A10I 


lt41 


BAL 


RS.FRSRU 


OOOEBtfl 


C810 


EEEE 




1442 


LHI 


Rl.X'EEEE' 


000EB8I 


4010 


90EO 


=001F9CI 


lt43 


STH 


RliWRTBUF 


OOOEBCI 


4010 


90DE 


=001F9EI 


1444 


STH 


R1.WRT8UF+2 


OOOECOI 


4010 


900C 


=001FAOI 


1445 


STH 


Rlt«RTBiiF+4 


OOOECtl 


4010 


90DA 


=001FA2I 


1446 


STH 


Rl.WRTBUF+6 


000EC8I 


O330 


F17F 


=0000481 


1447 


LB 


R3tS0P 


OOOECCI 


0230 


9009 


=001FA9I 


1448 


STB 


R3.WRTBUF+13 


OCOEDOI 


4130 


eBOA 


=0019DEI 


1449 


BAL 


R3,W0FT 


oooEom 


4130 


8648 


=0015201 


1450 


BAL 


R3,WDISr 


OOOEDSl 


4130 


8AE8 


=0019C4I 


l'*51 


BAL 


RS.LOKOIIT 


OOOEOCI 


4300 


87E0 


=00l6C0l 


1«»52 


B 


PEOJ 


OOOEEOI 


C810 


00E2 




1453 PWGS 


LHI 


Rl.X'E2t 


OOOEE'*! 


4300 


8DEC 


=001C04I 


1454 


B 


ERRA 




0000 


OEEBl 




1455 InTAPE 


Eau 


« 


00QEE6I 


90A1 






litSfe 


SSR 


RA.Rl 


OOOEEfll 


C310 


0020 




1H57 


THI 


R1,X»20» 


OOOEEEl 


2135 






1458 


BNZS 


INTPI 


OOOEFOI 


C810 


OOEl 




lt59 


LHI 


Rl.X'El' 


OOOppiH 


43U0 


8D0C 


=001C04I 


1460 


8 


ERRA 




0000 


DEF8] 


[ 


1461 InTPI 


EQU 


* 


OO0EF8I 


2441 






l'*62 


LIS 


R4.1 


oooefaI 


4040 


930C 


=00220aI 


1463 


STH 


R4,E0JFLS 


OOOEFEI 


DEAO 


a9A8 


rOOlBAAI 


1464 


OC 


RA.OISA'^L 


ooopoai 


DEAO 


89fi5 


=0018ABI 


1465 


OC 


RA.WFH 


000F06I 


90A1 






1466 


SSR 


RA,R1 


OOOF08I 


C310 


OOlO 




lt67 


THI 


Rl.X'lO' 


OOOpOcI 


4230 


e7ic 


=00162cl 


1468 


BNZ 


NORUN 


OOOfIOI 


4100 


eA6C 


=0019601 


1469 


BAL 


RO.NOMOTN 


ooofiih 


OEAO 


8995 


=0018ADI 


1470 


OC 


RA.BKSP 


000F18I 


4100 


8A64 


=0019801 


1471 


BAL 


RO.NOMOTN 
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LOAD TRKOEN 
INCRIHENT SECTOR 
MORE SECTORS ? 
NO 



HAXI«UH? 

YES - FINISHED 

LOAD HEAD 

INCRIHENT 

SAVE 

SET CURRENT 

FIRST PROGRAM CYLINOEb CHECKED?? 

YES 

SET FIRST PROSRAH CYLINDER 

HAKE CURRENT 

CHECK IT 

SET START 

HAKE CURRENT 

SET SECTOR TO ZERO 

SET HEAD TO ZERO 

SEEK 
WAIT 

INIT. THE FIRST SECTOR 



GET START 



WRITE TO THE DISC 
LOCK THE OUTPUT DEVICE 

PRINT DISC PACK UNUSABLE 



WRITE A FILE MARK 



WAIT FOR NO HOTIOn 
BACKSPACE OVER THE 
WAIT FOR NO MOTION 



MOSliHTO 
MDGl4laO 
MDSlfl90 
HDG1420 
HDG14210 
MDS1*220 
HDS1'»230 
nDG14240 
unci 4250 

HOSi«t260 

MDG1'>270 

M0S1423G 

HDG1*290 

MDGl'fSOO 

nDG1431o 

flOGl'»320 

MDG1'^330 

MDS14340 

HDGlt350 

HDG1'»360 

HDG14370 

MDG14380 

MDG1»390 

MDG1H'»00 

MOS14410 

HOG14420 

nOGl*'t30 

MOSl'f'^'fO 

HOSlftSO 

HOSIH460 

M0514470 

HOGl't'^80 

MOS1H490 

HOGl'tSOO 

MOGltSlO 

HDS14520 

HDG14530 

H0614540 

MQS14550 

!«IDG1'*560 

M0Gl«»S70 

MnGl'*580 

HDG14590 

MD61'>600 

H061*»6lO 

HDGl't620 

MDG14630 

MDG14640 

HDG1H650 

nDG14660 

MDG14670 

HDei*680 

MOGl't690 

MD514700 

HDSl'tTlO 
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OOOFlCl 
0QQF20I 
000F2'*! 
000F28I 
0O0F2CI 
O0OF30I 
OOOfSM-I 
00QF38I 



E650 
E660 
1+130 
E650 
E660 
4130 
tl30 
43U0 



00OF'^OI 

000F40I 

O0OFt2l 

OOOFtSi 

OOOFtAl 

000F»>EI 

000F52I 

000F56I 

0OOF56I 

OO0F5CI 

0OOF60I 

000F6'H 

0OOF68I 

0OOF6AI 

OOOF&El 

000F72I 

000F71H 

0D0F76I 

000F781 

0D0F7AI 

000F7EI 

OOOFSOI 

OOOFSm 

000F86I 

oooreai 
ooofsci 

0OOF8EI 
000F92I 
000F9'^I 
000F98I 
000F9AI 
000F9EI 
OOOFAOI 
000FA2I 



80E6 
aE31 
8614 
aE2E 
flF99 
860e 
SABC 
876C 



=0010061 
=0010551 
=00153CI 
=001O5AI 
=001EC9I 
=00153CI 
=0019C1H 
=0016A8I 



0000 0F40I 
2430 

5030 928E = 
4800 901E 
C500 2020 
4330 81FE 
C500 3O3O 
2137 

D300 900E 
C500 0030 
4330 81EC 
C&30 0012 
2450 

5800 6F5E 

C640 OOFO 

lli^C 

0440 

1046 

1048 

D2'»3 8FEA 

2631 

C840 FFOO 

0440 

1048 

D243 6F0C 

C840 OOFF 
0440 

D2H3 6FD0 
2631 

C550 0000 
2136 
245F 
5800 8F2A 



0021041 
:001F68I 

=0011501 



:0QlF6AI 
:00ll50l 

sOOlECCI 



S001F68I 



:001F68I 



S001F68I 



zOOlEDOl 



1472 
1473 
1474 
1475 
1*76 
1477 
l'*78 
1479 
1460 
1461 

ife2 

1H83 
1484 
1465 
1486 
1487 
1486 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
l'»96 
1497 
l»t98 
1499 
1500 
1501 
1502 
I5O3 

1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1S15 
1516 
1517 
1518 
1519 
1520 
1521 
1522 

isas 

1524 
1525 
1526 



LDAI 


R5,«TB00T 


LDAI 


R6.HTBO0T+79 


BAL 


RS.WRTPB 


LDAI 


R5.HTL0A0S 


tOAl 


R6tHTL0ADE 


BAL 


R3.WRTPR 


BAL 


R3,L0K0UT 


B 


EOW 
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SET THE START ADDRESS 
SET THE END ADDRESS 



LOCK THE OUTPUT DEVICE 



* 

♦ CREATE * 

* 

« 
* 

« 
♦ 



CREA 



THIS ROUTINE WILL COPY A PROSRAN FROH MEMORY TO THE SPECIFIED 
OUTPUT DEVICE, THE OPTION "LIMITS" IS USED TO SET THE BOUNDRIES 
FOR THE PR06RAH TO BE COPIED. THE PdB IS FORHaTTEO WITH THE 
OPTIONS "SEONaH" - "LIHITS" - "LOW" - "HISH" - AND THE CHKSUH 
IS CALCULATED AND PLACED IN TH^ BLOCK. THE POB FOLLOWED BY THE 
PROGRAM IS COPIED TO THE OUTOEV flEDIA. 
ALIGN 8 

SET THE CREATE INDICATOR 
SAVE RETURN 



SEONAM = 

NO 

SECOND HW s 



CrEAI 



CREA3 



Eau 


« 


LIS 


R3«0 


STA 


R3,CPYFtS 


LH 


RO.SEQNAPI 


CLHI 


R0,X'2020« 


BE 


CREAER 


CLHI 


R0«X'3O30* 


BNES 


CREAI 


LB 


ROtSEQNAn+2 


CLHI 


R0.X«30» 


BE 


CREAER 


LHI 


R5,ie 


LIS 


R5,0 


LDA 


RO.LOW 


LHI 


R4tX'F0t 


SLLS 


R4.12 


nar 


R4<R0 


SRLS 


R4,6 


SRLS 


R4,8 


STB 


R4<PDBiR3) 


AIS 


R3.1 


LHI 


R4,X«FFO0' 


NAR 


R4.R0 


SRLS 


R4,8 


STB 


R4tPDB(R3) 


AIS 


R3.1 


LHI 


R4,X»00FF' 


NAR 


RK.RO 


STB 


R4,PD6(R3) 


AIS 


R3.1 


CLHI 


R5,0 


BNES 


CRECHK 


LIS 


R5,15 


LDA 


RO.HISH 



SET FLAS 



MDB14-720 
HOG1*730 
filDGl'*74Q 
f10S1475 
H0Sl'»76 
nDGl4770 
MDSlt780 
WOG14790 

HDGitaoo 

MOGltSlQ 
|uD61f620 
W0S1'»830 
MDGl't840 
MDG14850 
1^0614660 
HDG14e70 
HDG14880 
nOG14890 
HDS1*»900 
HDG14510 
M0614920 
I1DG1'*930 
MDGlt940 
MOGl<t^50 
nD614960 
HDSl*t970 
MOGlt'eO 
nDGl'*99Q 
HDGISOOO 

noGisoio 

nOGl502Q 

nosisuso 

nDG15040 
nOGlSOSO 
WOG15060 
M0S15070 

noeisoso 

WDG15090 
HDGlSlOO 
nOGlSllO 
nOG15120 
MDG15130 
l«IOS15i40 
HOS15150 
H0615160 
HDSlSlTO 
HDSlSlSO 
PDGiSifO 
H0615200 
MOG15210 
MOG15220 
MuG15230 
WDS15240 
HDG15250 
HD615260 



HMD GENERATOR 06-177F02R0'*«91Al3 
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000FA6I 


<i30Q 


FFC4 


=O00f6EI 


1527 




B 


CREA3 




«D5i5270 


aOOFAAl 


aiiBo 






1528 


CRECHK 


LIS 


R5,0 


CALCULATE THE 


HOS15280 


DOOFACI 


sato 


8F1C 


sOOlECCI 


1529 




LDA 


R4,L0W 


CHKSuM BYTE 


MDS15290 


OOOFBOI 


D321J 


0000 




1550 


CHKl 


LB 


R2.0<R4) 




MDS15300 


OGOFe«H 


0752 






1531 




XAR 


R5«R2 




MOSi53l0 


000F86I 


26^1 






1532 




AIS 


R4«l 




«OG1532o 


0O0FB8I 


SSftQ 


aF14 


rOOlEDOl 


1533 




CLA 


R4«HI6H 




MDS15330 


OOOFBCI 


2086 






1534 




BLS 


CHKl 




«OG15340 


nnnCBrl 


03^<» 


GOOD 




1555 




LB 


R9,0(R41 




nDGl5350 


OOOFcil 


0752 






1536 




XAR 


R5«R2 




HDS15360 


OOOFCtI 


D253 


8FA0 


=001F68I 


1557 




STB 


R5,PD8<R3) 




MDel5370 


DOOFCSI 


2631 






1558 




AIS 


R3.1 




«DGl53Sg 


OOOFCAl 


2'*55 






1539 




LIS 


R5,5 




HDGi5390 


OOOFCCI 


03'*3 


8F98 


=001F68I 


1540 




LB 


R4tPDB(R3l 


LOAD EXTENSION DELIMITER 


HDS15400 


OOOFDOI 


csto 


002E 




1541 




CLHI 


R4tC'.' 


EXISTS? 


MDG15410 


*OOOFD'*I 


2133 






1542 




BNE 


CHK2 


NO 


MDG15420 


000FD6I 


2752 






1543 




SIS 


R5t2 


SET CLEAR COUNT 


MDG15430 


D00FD8I 


2632 






1544 




AIS 


R3.2 


SET POINTER 


«Dei5440 


OOOFDAI 


2440 






1545 


CHK2 


LIS 


R4<0 




MDS15450 


DOOFDCl 


D243 


sFsa 


S001F68I 


1546 




STB 


R4.P0B<R3) 




H0G15460 


OOOFEOI 


2631 






1547 




AIS 


R3«l 




MOS15470 


ooqfe:2I 


2751 






1548 




SIS 


R5,l 




HDS154B0 


000FE4I 


2035 






1549 




BNZS 


CHK2 




HDS15490 


000FE6I 


4130 


8798 


=0017821 


1550 




BAL 


R3.L00AO 


PERFORB TESTS IN THE ROUTINE 


HDG15500 


OQOFEaa 


4SuC 


8EtA 


rOOitDSI 


1351 




LH 


RD.OUTOev 


SET DEVICE INDICATOR 


nuGlSSlO 


OOOFEEI 


C5D0 


0003 




1552 




CLHI 


80,X'03» 


OIsC ? 


HDS15520 


000FF2I 


4580 


8046 


=00103CI 


1553 




BNL 


CREDIS 


YES 


MDG15530 


OO0FF6I 


4130 


8788 


=0017821 


1554 




BAL 


R5,L0DAO 




NDG15540 


OOOFFAI 


9DA1 






1555 




SSR 


RA.Rl 




HDGl5b50 


OOOFFCl 


C310 


0020 




1556 




THI 


RltX»20» 




HQG15560 


OOlOOOI 


2335 






1557 




BZS 


WRTPDB 




HDG15570 


0010021 


C610 


OOEO 




1558 




LHI 


Rl.X'EO' 


ERROR ILLEGAL BOT OR EOT 


H0S15580 


00x0061 


4300 


8CCA 


=001C04I 


1559 




B 


ERRA 


AT The start of an operation 


MDS15590 




0000 


lOOAI 




1560 


WRTPDB 


E8U 


* 




MOS15600 


OOlOOAl 


2441 






1561 




LIS 


R4tl 


SET the EOJ 


H0G15610 


OOlOOcI 


4040 


9IFA 


r00220AI 


1562 




STH 


R4.E0JFLG 


FLAG 


MDS15620 


OOiOlOI 


E650 


8F54 


=001F68I 


1563 




LOAI 


R5,P0S 




MDG15630 


ooiomi 


E660 


8F83 


=001F93I 


1564 




LOAI 


R6,P06+51 


» R04 


HDS15&40 


ooioiai 


4130 


8520 


=00153CI 


1565 




BAL 


R3fWRTPP 




WDG15650 


OOlOlCl 


5BD0 


8EAC 


rOOlECCI 


1566 




LDA 


RO.LOU 




MOG15660 


0U1020I 


58E0 


BEAC 


=001EDUI 


1567 




LOA 


RE, HIGH 




MDG15670 


00l02tl 


4130 


S84A 


=0018721 


1568 


WPTIY 


BAL 


R3,STBK4n 




MDG15680 


0010281 


4130 


3510 


=00153CI 


1569 




BAL 


R3,WRTPR 




HOG15690 


00102CI 


0844 






1570 




LOAR 


R4,R4 




BDS15700 


00102EI 


2235 






1571 




azs 


WRTIY 




H0ei57l0 


OO1O3OI 


4130 


8990 


=0019C4I 


1572 




BAL 


R5,L0K0IIT 


LOCK THE OUTPUT DEVICE 


MOS15720 


O0lO3'*I 


4130 


8998 


=0019001 


1573 




BAL 


R3,ZSEQ 




WDG15730 


0010361 


4300 


866C 


=a016ASI 


1574 




B 


EOV 




MOSl57ifO 




0000 


103C] 


[ 


1575 


CREDIS 


EQU 


« 




HDS15750 


00103CI 


2441 






1576 




LIS 


R4,l 




WDS15760 


00103EI 


4O4O 


9ica 


=0022UaI 


1577 




STH 


R4.E0JFLS 




HOG15770 


0010421 


4130 


63 3E 


=0013841 


1578 




BAL 


R3,UP0TXX 




nDG157B0 


OO1OH6I 


4130 


8738 


=0017821 


1579 




SAL 


R3,L0DAn 




nOG15790 


OOiOitAl 


0330 


EFFC 


=00004AI 


1580 




LB 


R3tS0D 


SET START 


f10G15800 


ooioitei 


4O3O 


9XAE 


=0022001 


1581 




STH 


R3,CYL 




HDSlSSlO 
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0010521 
OOiOS'tl 
OOlOSSl 
Q0105CI 
OOlO&Ol 
00x0621 
0010661 
OOlOfefll 
♦00106CI 
0010701 
00l07tl 
0010781 
00107CI 

ooioaoi 

0010821 
0010861 
00108AI 
00108CI 
0010901 

00 login 
001093I 

00109CI 
00109EI 
OOIOAOI 
0010A4I 
OOIOASI 
OQlOAAl 

OOIOAEI 
OOlOBOl 
OOIOB"*! 
0010B8I 
OOlOBAl 
OOlOBEl 

•O010C2I 
OOlOCtl 
O0X0C8I 

*D010CAl 
OOlOCEl 
OO1O02I 
0010D6I 
OOIODSI 

OOlOOCl 
OOIOEOI 
OOlOEm 
OulOESl 
OOlOEAl 
OOlOEEl 
OOIOFOI 

ooiopin 

OOlOFSl 
OOIOFCI 
OOllOOI 
OOllO'tl 



0788 

4130 9986 
OEAO 8853 
itl30 8980 
2430 

4030 9l9C 
E&50 9042 
0865 

CA60 OOFF 
4130 896A 
4130 84A2 
C830 EEEE 
4530 g02C 
2335 

C6I0 DOEO 
43U0 8C4A : 
0722 

D332 gOlE : 
C530 0000 
4330 305C : 
D350 SECE 

0553 

2138 

4832 9OO8 

4850 8ECU 

0553 

4330 81B8 

0000 lOAEI 

2628 

C520 OlOO 

4230 FFD4 

2681 

4830 9I5O 

4583 F4A2 

233D 

E650 8FE4 

0865 

CA60 QOFF 

4130 89yc 

4130 8444 

2420 

4500 FFBO 



4820 
4523 
4330 
2S21 
4020 
0766 
4300 
4830 
4030 
4O6O 
4882 
4060 



9I22 

F48E 
8B9C 



S0019DEI 
:0016AFI 
lOOlAlOl 

:0022i'2I 
rOOaOACI 



=0019DEI 
=00151AI 

=0020ACI 



:001C04I 

:0020AEI 

:0010F4I 
:0aiF6AI 



:0020ACI 
:001F68I 

:0Q1266I 



=00108CI 

=00220eI 
=0005641 

=0020ACI 



sOoigOEi 

:00151AI 

:ooioeci 

:002202I 
=0005721 
S001C84I 



9114 =0022021 



FFDO 
9IOA 
8FA0 
8F9E 

8FAC 
9OF8 



:0010C4I 
:002202I 
S00209CI 
s00209El 
:0020B0I 
=0022001 



1582 
1583 
1584 
1585 
1566 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
IBgg 

1600 

I60I 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1626 

1629 

1630 

1631 

1632 

1635 

1634 

1635 

1636 



CREA4 
CREA6 



CREAXY 



NXTDIR 



NXREAl 



NXDRl 

* 
NXORHD 



AVAIL 



XAR RStRS 

BAL R3,UDFT 

OC RAiSEEK 

BAL R3.FRSRW 

LIS R3,0 

STH R3.HEAD 

LDAI R5. DIRECT 

LDaR R6.R5 

AAI R6«X»FF» 

BAL R3,WDFT 

BAL R3,R0ISC 

LHI R3.X'EEFE» 

CLH R3. DIRECT 

BES CREA4 

LHI Rl.X'EO' 

B ERRA 

XAR R2.R2 

LB R3,DIRECT+2(R2» 

CLHI H3tX'00» 

BE AVAIL 

LB R5,SEONa»« + 2 

CLAR R5iR3 

BNES CREAXY 

LH R3.DIRECT«R2» 

LH RS.SEQNAM 

CLAR R5,R3 

BE NUHTHERP 

Eau * 

AIS R2<S 

CLHI R2,X'100« 

BNE CREA6 

AIS RStl 

LH R3.CUTRKDEN 

CLH R6.SECTaB(R3) 

BE NXDRHO 

LDAI R5«DIRECT 

LDAR R6.R5 

AAI R6tX'FFt 

BAc R3»WDFt 

BAL R3«RDISC 

LIS R2,0 

B CREA6 

LH R2,HEAD 

CLH R2iHDTAg(R3) 

8E OIRFUL 

AIS R2.1 

STH R2.HEA0 

XAR RS.Re 

8 NXREAl 

LH R3.HEA0 

STH R3tDIRPRH 

STH R6.DIRPRH+2 

LH Re.DIRECT+4(R2> 

STK Re.CYL 



SET SECTOR TO ZERO 

SET UP FILE 

SEEK 

WAIT 

ZERO 

OUT HEAD 

SET UP ADDRESSES 

FOR THE SELCH 



GO READ THE DISC 

SEE IF THE DISC WAS INITIALIZED 7 



DIRECTORY 

FOR AN 

GET THE THIRD DIGIT 

EQUAL 7 

NO 

GET THE FIRST TWO DIGITS 

EQUAL ? 



EnpTy BLOCK 

REACH THE END 7 

NO 

INCREMENT SECTOR 

LOAD 

nORE SECTORS THIS TRACK ? 

NO 

YES 

SET UP FOR READ 



SO READ THE DISC 

SEARCH 

HEaD 

HAxlHUM? 

YES - DIRECTORY FULL 

NO SET HEAD =+1 

STORE 

SET SECTOR TO ZERO 

60 READ 

SAVE DIRECTORY INFO. 

SET THE CYL # FROH THC DIRECTORY 



MDGlSaao 
HDG15830 
MDS15840 
«OG15650 
HOG15e60 
I11DG15870 

MDSisaso 

HUG15890 

HDG15900 

MDG15910 

HDG15920 

HDG1593Q 

MDG15940 

HDG15950 

HOG15960 

HOG15970 

HOG15980 

KDei5990 

HDG16000 

HO616010 

l«IOGl6y20 

HU616030 

HOGI6O4O 

|U|DG16050 

HUGieUfeO 

HOG16070 

HOG16U80 

MOGI6O90 

|>)DG16100 

MDGI6II0 

nD616120 

HD616130 

HOGI6I4O 

HDG16150 

I>IOG16160 

HDG16170 

KDG161S0 

HOG16190 

MDS16200 

HOG16210 

HDG16220 

nD616230 

nU616240 

nDGl6250 

MOS16260 

MDei6270 

MDS16280 

S0516«-9v 

HDS16300 

MDS16310 

n061632o 

MDS16330 

nDS16340 

MDG16350 

noei636o 



MflD 


GENERATOR 


06-177F02R04H91A13 




PAGE 


51 15813S57 11/13/81 




ooiioai 


D382 


aFA7 


=0020831 


1637 


LS 


R8.DIRECT+7(R2l 


GET THE HEAD *» FROH THE DIRECTORY 


MOG16370 


OOIIOCI 


U080 


90F2 


=0022021 


1638 


STH 


R8.HEAD 




MDS16380 


OOlllOl 


0362 


8F9E 


=0020621 


1639 


LB 


R8iDIRECT+6(R2> 


SET THE SECTOR S FROM THE DIRECTORY 


HOS16390 


OOilllfl 


h020 


eFaa 


=0020ft0l 


I64O 


STH 


R2>DIRPRH*4 




HOS16400 


OOlllSI 


E650 


8E4C 


=001F68I 


1641 


LOAl 


R5,PDB 


SET UP TO WRITE THE PrsB 


HOG16410 


OOillcI 


E660 


8E7B 


=001F9BI 


1642 


LDAI 


R6.PDB*51 


TO THE DISK R04 


MDG16420 


001120I 


"♦130 


8152 


=0012761 


1643 


SAL 


R3,AVAIL0 




nDGl6430 


001121+1 


5830 


9OAC 


=0021041 


1644 


lda 


R3«CPTFlS 


GET THE COPY FLAG - SPT 7 


MDG16440 


rtrt^ * "iOT 


'^23'* 






i&iie 


aU7D 


R3 


vrc _ rnpv srTijDU 


Mngl64fiO 












w«a><-v 








00n2Al 


5800 


609E 


=001ECCI 


1646 


LDA 


RD.LOW 


LOAD START ADDRESS 


HOS16460 


OdllSEl 


58E0 


8D9E 


3OOIEDOI 


1647 


LOA 


RE.HISH 


LOAD END ADDRESS 


HDG16470 


0011321 


!ti30 


873C 


=0018721 


1648 DTRIP 


BAL 


R3,ST8KAD 


GET BLOCK ADDRESSES 


MOSi6'*S0 


0011361 


"♦OtO 


9006 


=0022101 


1649 


STH 


R4.CUMAXCYL 




MDSi6490 


00113AI 


1*130 


8138 


=0012761 


I65O 


BAL 


R3.AVAIL0 


WRITE 


MDG16500 


00113EI 


tS'tO 


90CE 


=0022101 


1651 


LH 


R4,CUHAXCYL 




MDG16510 


001il»2I 


2238 






1652 


BZS 


OTRIP 




WDGi6520 


ooim"*! 


tX30 


8010 


=0011581 


1653 


BAL 


R3t DTRDON 




HDG16530 


ooimsi 


4130 


8884 


=0019001 


1654 


BAL 


R3.ZSEQ 




HDGl65(»0 


ooimci 


4300 


8570 


=0016COI 


1655 


B 


PEOv) 




HDG16550 


0011501 


C800 


4432 




1656 CrEAER 


LHI 


RO,C»02» 




HDS16560 


0011541 


4300 


8AB8 


=001C10I 


1657 


B 


ERROR 




MD616570 










1658 * AT 


THIS TIME THE DTRECTORY 


MUST BE UPDATED 


HD616S80 










1659 * 


1. THE 


SE8UENCE NUMBER 


MUST BE STORED IN THE DIRECTORY 


HDG16590 










1660 * 








HOGI660O 










1661 * 


2. THE 


CURRENT SECTORi 


HEAD AND CYLINDER MUST Bt sTOhED IN 


BDsiS6iO 










1662 * 


THE 


NEXT BLOCK. 




H0G1662D 




0000 


1158] 




1663 DTRDON 


ESU 


* 




MDGI6630 


0011581 


5030 


907C 


=0021081 


1664 


STA 


R3.DTD0NE 


SAVE THE ADDRESS 


MDS16640 


00115CI 


tiso 


S864 


=0019C4I 


1665 


BAL 


R3tL0K0llT 


LOCK THE OUTPUT DEVICE 


HDGI665O 


0011601 


4830 


909C 


=0022001 


1666 


LH 


R3,CYL 


SAVE THE CURRENT 


HDG16660 


00116'»I 


4030 


8F3C 


=0020A4I 


1667 


STH 


RS.NXTPRM 


CYLINDER 


MOG16670 


C01168I 


V830 


9096 


=0022021 


ibga 


LH 


R3,HEA0 


HEAD 


|ii|OGl6&eo 


00116CI 


4030 


aF36 


=0020A6I 


1669 


STH 


R3.NXTPRM+2 




MDG16690 


0011701 


4O8O 


8F34 


=0020A8I 


1670 


STh 


R8.NXTPRM+4 


SECTOR 


MDG16700 


00117<H 


4630 


8F24 


=0020901 


1671 


LH 


R3iOIRPRn 


RETRIEVE THE DIRECTROY PARAMETERS 


MDG16710 


0011781 


4030 


9066 


=0022021 


1672 


STH 


R3,HEAD 


HEAD 


HOG16720 


00117CI 


4880 


6F1E 


=00209EI 


1673 


LH 


R6,DlRPRH+2 


SECTOR 


HDG16730 


OO116OI 


D320 


EEC6 


=00004AI 


1674 


LB 


R2,S00 


GET START 


HDGl67ito 


0011841 


4020 


9078 


=0022001 


1675 


STH 


R2.CYL 


CYLINDER 


HOG16750 


ooiiasi 


4820 


8F14 


=0020A0l 


1676 


LH 


R2.DIRPRH+4 


DIRECTORY InCREHEwT 


P?OG16760 


00118CI 


0842 






1677 


LOAR 


R4,R2 


COPY INCREMENT 


MDG16770 


OOllSEl 


D330 


8006 


=001F68I 


1678 


LB 


RS.SEQNAM 




HDG16760 


0011921 


D234 


8F16 


=0020ACI 


1679 


STB 


R3.DIRECT(R4) 


STORE THE 


MDG16790 


0011961 


2641 






1680 


AIS 


R4.1 


SEQUENCE 


HOG16e00 


0011961 


D330 


eoco 


=001F69I 


1681 


LB 


R3.SESINAW*! 


NUMBER 


MOGI681O 


00119CI 


0234 


aFOC 


=0020ACI 


1682 


STB 


R3,0IRECT<R4) 


IN THE DIRECTORY 


nDGl6820 


OOllAOl 


2641 






1683 


AIS 


R4,l 




HDGI6830 


0011A2I 


0330 


8DC4 


=001F6AI 


1684 


LB 


R3.SEQNAH+2 




HOG16640 


0011A6I 


0234 


8F02 


=D020ACI 


1665 


ST8 


R3.DIRECT{R4) 




HOG16850 


OOIIAAI 


2628 






1686 UPDTDR 


AIS 


R2.6 


NO - BUMP POINTER To NEXT BLOCK 


nOG16a60 


OOllACI 


C520 


0100 




1667 


CLHI 


R2,X'100« 


> 100 


HDG16670 


OOllBOl 


4330 


8040 


=0011F4I 


1688 


BE 


NEEONU 


YES - NEED ANOTHER SECTOR 


nDGi68eo 


OOllBHl 


4640 


8EEC 


=0020A4I 


1669 


LH 


R4tNXTPRM 


NO 


HDGl68gO 


ooiieai 


4042 


aEF4 


=002UbOi 


1690 


STH 


R4tOIRECT*4(Ra> 


STORE NEXT AVAIL. SECTOR 


MOS16900 


OOllBCl 


4640 


SEES 


=0020Aai 


1691 


LH 


R4»NXTPRH+4 




HOG16910 
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ooncoi 


D2'*2 eEEE =0020621 


1692 




STB 


R4<DIRECT*6(R2) 




OOllCH 


H6H0 8EDE =0020A6I 


1693 




UH 


R4,NXTPRM+2 




ooiicai 


02'»2 8EE7 =0020831 


1694 




STB 


R4t0lRECT+7(R2) 






0000 llCCI 


1695 


STOROR 


eou 


* 




OOllCCl 


4130 66140 =001Aiai 


1696 




BAL 


R3.FRSRW 




OOilOOI 


"♦ISO aeOfi =0019DEI 


1697 




BAL 


R3,M0FT 




OOiiDtl 


DEAD 86D7 =0018AFI 


1696 




oc 


RAiSEEk 




0O11D8I 


«H30 a83«> =001AlOl 


1699 




BAL 


RS.FRSRW 




OOilDCI 


E650 SECC =0020ACI 


1700 




LDAI 


R5 .DIRECT 




OOllEOI 


0665 


1701 




LOAR 


R6<RS 




»0011E2I 


CA60 OOFF 


1702 




AAI 


R6,X'FF» 




OO1IE6I 


m30 87Fi« =0019DEI 


1703 




BAL 


ft3,WDFT 




OOllEAl 


1130 8332 r00152UI 


1704 




BAL 


rS.wdisc 




OOilEEl 


5830 8FE6 =U021D8I 


1705 




LOA 


R3,DTD0ME 


SET ADDRESS 


OOIIP2I 


0303 


1706 




BR 


R3 


RETURN 




0000 iiFm 


1707 


neednw 


Eeu 


* 




OOllFtl 


tfl30 8818 sOOlAlUl 


1708 




BAL 


R3fFRSRW 




oonFai 


4130 S7E2 =0019DEI 


1709 




BAL 


R3,MDFT 




OOllFCl 


DEAO 66AF =0018AFI 


I7l0 




OC 


RA.SEEK 




001200I 


4130 880c rOOlAlOl 


1711 




BftL 


R3«FRSRU 




0(Ji20i*I 


E650 BEft4 =0020ACI 


1712 




LOA I 


R5f DIRECT 


WRITE 


oai2oai 


0865 


1713 




tOAR 


R6*R5 


DlRECTO«T 


*O012OAZ 


C*60 OOFF 


1714 




AAI 


R6,X»FF« 


TO The disc 


ooiaoEi 


4130 87CC =0019DEI 


1715 




BAL 


R3,HDFT 




0012121 


4130 830a =0015201 


1716 




BAL 


R3<WDISC 








1717 


« SET 


NEXT SECTOR OF DIRECTORY 


AND LINK IT 


0012161 


2681 


1718 




AIS 


Rfttl 


INCREMENT SECTOR 


0012181 


4830 8FF2 =00220e1 


1719 




LH 


R3,CUTRKDEN 


LOAD 


00121CI 


4583 F344 =0005641 


1720 




CLH 


R8,SECTAB(R3> 


ANY SECTORS LEFT 


«00l220l 


2330 


1721 




BE 


NEDNWl 


NO 


0012221 


E650 6E86 =0020aCI 


1722 




lOai 


R5. DIRECT 




0012261 


0865 


1723 




LOAR 


R6tR5 


' 


*00122el 


CA60 OOFF 


1724 




AAI 


R6,X'FFt 




e0l22Cl 


4130 87AE =0019DEI 


1725 




BAL 


R3,M0FT 




OO123OI 


4130 82E6 sOOlSlAI 


1726 




BAL 


R3»RDISC 


READ DISC 


00123<(I 


2528 


1727 




LCS 


R2f8 




0Q1236I 


4300 PF70 sOOllAAI 


1728 




B 


UPOTDR 




00l23Al 


4820 8FC4 =0022021 


1729 


NEDNWl 


LM 


R2,MEA0 




00123EI 


4S23 F330 =0005721 


1730 




CLH 


R2,HDTAB(R3) 


HAXWUHI' 


00i2it2I 


4330 847A =0016001 


1731 




BE 


PEOJ 




00X2461 


2621 


J732 




AIS 


R2.1 




00l2'J8l 


4O2O 8F86 =0022021 


1733 




STH 


R2«HeA0 




0012'tCl 


0788 


IT34 




XAR 


Re,R8 




C012itEI 


E650 8E5A =0020ACI 


173S 




LOAI 


R5, DIRECT 




0012521 


0865 


1736 




LOAR 


R6.RS 




♦ 00125M.I 


CA60 OOFF 


1737 




AAI 


R6.X'FF» 




00i256l 


4130 8782 S0019DEI 


1738 




BAL 


R3.M0FT 




00125CI 


4130 8ZBA =0015lAl 


1739 




SAL 


R3,S0JSC 


READ SISC 


0012601 


2528 


1740 




LCS 


R2,e 




0012621 


1J300 FF44 =0011AAI 


17*1 




8 


UPDTDR 




0012661 


C800 44S4 


I7i*2 


nuhthere lhi 


RO.C'Dft' 




OO126AI 


4300 89A2 =001ClOl 


1743 




B 


ERROR 








1744 


*♦**«*»«*«**«««*««**««**«««»•***«*««*«*••**«•***«**«•*««*•***•***•***** 






1745 


* 






« 






1746 


» 






* 



H0G16920 
H0G16930 
HOS16940 
("1DS16950 
HDG16960 
MOG16970 
MDG16980 
MDS16990 
MDG17U00 
MDS17010 
WOG17020 
MDG17U30 
l«(DG17UitO 
«OS17USO 
MOG17060 
MOGI7O7O 
HOGl70aO 
nDGl7090 
HO6l710e 
nDGl7110 
WDG17120 
BDel71S0 
«06171<JO 
WOS171S0 

ttaei7i60 

«oei7l70 

iwoeiTieo 

HOGin90 
HOG17200 
HO617210 
«ns 17220 
N0817230 
M0617240 
H061725O 
W0617260 
HO61T270 
Wd6l72»0 
BOS17290 

nDei73oo 

«DSl73iO 
WOB173gO 
NDB17330 
I«t06l73«»0 
P(D6l75S0 
W}617S60 
WOGir370 
MDS173S0 
HOS173$)0 
Wd6l7400 
MOG17410 
MOG17420 
IHD617'*30 
flOSl7440 
«DSir4S0 
WOS1?'»60 
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ooiasei 

0012701 
00127tH 



0012761 
00i27al 

00X27CI 
0012801 
00l26tl 
0012881 
00128CI 
0012901 

0012961 
00129AI 
00129EI 
0012A2I 
0012A6I 
0012AflI 
0012ACI 
0012601 
0012B2I 
0012B6I 
♦0012BAI 
0012BCI 
0012BEI 
0012C2I 
0012041 
0012C8I 



0000 
2t2F 
4020 
230t 
0000 
0000 
21*20 
4O2O 
0000 
5O30 
4130 
DEAD 
4130 
4840 
4564 
233F 
4130 
4130 
4830 
C330 
4330 
2681 
4584 
203D 
4830 
4534 
2337 
2631 
4O30 
0766 
43U0 
4830 



126EI 

8FAC =0022201 

12761 
12761 



8FA4 
127CI 
8F64 
875A 
8627 : 
8784 ; 
8F7E ■ 
F2D0 ; 

8744 ; 
8798 ; 
6F52 ; 
0020 
8042 : 

F2B4 ; 

8F4C : 
F28e : 



=0022201 

:0021E4I 
:00190EI 
:0OieAFI 
:001A10I 
=00220eI 
:000564l 

:0019DEI 
:001A36I 
:0021F4I 

:0D12ECI 

=0005641 

=0022021 
=0005721 



aF40 =0022021 



FFCE 
8F34 



=0012961 
=0022001 



1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
i75a 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1765 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1765 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1601 



A V A I L R 

AVAILM -- (fiVAILOJ 



THIS 
DISC 
(JEXT 



» 

* 
* 
« 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
« 

AVAILR 



AVAILO 
AVAILW 



AVALLl 
AVAILS 



AvAIL>f 



ROUTINE WILL HEAD OR WRITE A PROSRAH BLOCK FROM THE 

AND HILL RETURN WITH SECTOR-hEAD-CYLINDER UPDATeO TO THE 

SECTOR. 



INfUl 



HO 

RB 

CYL 

HEAD 

R5 

R6 

output: R5 

R6 

R8 

CYL 

HEAD 



xetUkN auukcss 

SECTOR TO BE READ 

CYLINDER TO BE READ 

HEAD TO BE READ 

START ADDRESS OF THE BUFFER 

END ADDRESS OF THE BUFFER 

SAME 

SAHE 

NEXT SECTOR 

NFXT CYL (IF NEEDED) 

NEXT HEAD (IF NEEDED) 



IF A READis BUFFER AREA SPECIFIED BY R5 8 R6 = DATA READ 



*7t*iifm*****»**mt*:^iim*******m*****m*****m************************ 



AvAlLtA 



AVAIOO 



EQU 

LIS 

STH 

8S 

EBU 

ESU 

LIS 

STH 

EQU 

STA 

BAL 

OC 

BAL 

LH 

CLH 

BE 

BAL 

BAL 

LH 

THI 

BZ 

AIS 

CLH 

BNES 

LH 

CLH 

BE 

AIS 

STH 

XAR 

B 

LH 



* 

R2,15 
R2iAVAFL6 
AVALLl 

« 

R2,0 

R2.AVAFLG 

* 

R3,AVARTN 

R3,WDFT 

R A, SEEK 

R3.FRSRW 

R4.CUTRKDEN 

R8,SECTAB«Rt) 

AVAIL4A 

R3.H0FT 

R3«RCHK 

R3»C0NSTA 

ft3.X'20« 

AVAILI 

R8«l 

R8.SECTAB{R4) 

AVAIL4 

R3.HEA0 

R3«HDTAB(Rtt) 

AVAIOO 

R3<1 

R3.HEAD 

R8fR8 

AVAIL4 

R3,CYL 



INDICATE READ 



INDICATE WRITE 



HAxInUH 7 
NO 

READ CHECK THE SECTOR 

IS THIS SECTOR 

DEFECTIVE 

NO 

NO - GET ANOTHER SECToR 

ANY ON TH S TRACK ? 

LOAD HEAD 

MAXIMUM 

NO 

TES 

INCREMENT HEAD 
ZERO SECTOR 

SET NEXT CYL « 



HDei7470 
HDS174e0 
MOei7'*90 
HDG17500 
HDG17510 
BDG17520 
I»DG17530 
HDGl75i»0 
hDGITSSO 
MDG17a60 
HOG17570 
MOS17580 
MD617590 
HOG17600 
HtiGl76l0 
MDS17620 
nOGl7630 
HOG17640 
HDG17650 
HDG17660 
HOG17670 
HOS17660 
HOS17690 
HDea7700 
MOG17710 
nOGl7720 
HnGl7730 
MDG17740 
HDG17750 
MDG17760 
HOG17770 
HDGl77eO 
KDG17790 
MDG17800 
HDG17810 
HDG17820 
HDG17830 
MDG17840 
HDG17S50 
HOG17660 
HDG17670 
HDG17680 
MDG17890 
MDG17900 
MDS17910 
HDG17920 
HDG179S0 
HDG17940 
HDG17950 
HDG17960 
H0G17970 
HOG17980 
MOG17990 
HD618U00 
HDG18010 
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0012CCI 
0012CEI 
00X2021 
0012D'*! 
00X2D6I 
OOiaOAl 

ooiaoEi 

0012E2I 
0Ql2E'*I 
O0i2EaI 

0012ECI 
0012FOI 
00X2F2I 
0012F6I 
0012FAI 
0012FCI 
OOiJOOI 
001301+ 1 
0013061 
OOlSOftl 
00130CI 
0013101 
00l31'+I 
*001318I 
0013141 
00131CI 
0013201 
0013221 
0013261 
00132AI 
00132CI 
0013301 
0013321 
0013341 
0013381 
0Q133CI 
OOlStOl 
0013421 
0013461 
00134AI 



2631 

4534 F05C 
2166 
2335 

C810 OOEC 
itSWO 89F6 
4030 SFIE 
078B 

4U60 8F1A 
4300 FF94 
0000 12ECI 
4830 8F30 
2336 

4130 86Ee 
4130 822" 
2305 

41 3C 860E 
4130 821C 
2681 

4584 F25A 
2333 

4300 8036 
4830 SEEE 
4534 F25A 
2337 
2631 

4030 8EE2 
0788 

4300 8020 
4830 8C06 
2631 

4534 EFFE 
2186 
2335 

C610 OOEC 
4300 B998 
4030 SECO 
0768 

4O6O 8EBC 
5830 8E9A 
0303 



C00032EI 



:001CD'*I 

;00220UI 

=0022^21 
:001260I 

:00222UI 

=00190EI 
=0015141 

r00l9OEI 
=0015201 

=0005641 

=0013461 
=0022021 
=0005721 



=0022021 

=0013461 
=0022001 

=00032EI 



=001CD4I 
=0022001 

=0022021 
=0021E4I 



iao2 

1803 
1604 
1S05 
1606 
180? 
1808 
1809 
1810 
1611 
1812 
1613 
1814 
1815 
1816 
1817 
1816 
1819 
1620 
. 1621 
1822 
1823 
1824 
1625 
1826 
1827 
1628 
1829 
1830 
1831 
1832 
1633 
1634 
1835 
1836 
1837 
1838 
1839 
184 
1641 
1642 
1843 
1644 
1845 
1846 
1847 
164S 
1849 
1850 
1851 
1652 
1653 
1654 
1855 
1856 



AVACON 
AVAILl 

AVAWRT 
AyACTN 

AVAIL6 



AVANCY 



AVACYI 

avaend 



AIS R3.1 

CUH R3,CYLTAB(R4) 

BLS AVACON 

BES AVACON 

tHI R1«X»EC» 

B ERRA 

STH R3,CYL 

XAR R8,R3 

STH RS.HEAD 

B AVAILS 

EBU * 

LH R3,AVAFlG 

B2S AVAWRT 

BAL «3,U0FT 

BAL R3«RDISC 

BS AVACTN 

BAL RS.WDFT 

BAC R3,«DlSn 

AIS Rea 

CLt^ R6.SECTAa(R4> 

BES AVAIL6 

B AVAENO 

LH R3,H£A0 

CLH R3.HDTAB(R4l 

BE AVANCY 

AIS R3il 

STH RStHEAD 

XAR R8«R8 

B AVAEND 

LH R3.CYL 

AIS R3tl 

CLH RS.CYLT&B(R4) 

BLS AVACYI 

BES AVACTl 

LHI Rl.X*EC» 

B ERRA 

STH R3,CYL 

XAR a8«ft8 

STH R6«HEAD 

LOA RStAVARTN 

8R R3 



« 

* U P D T P T 

« 
* 
« 



VALID 7 

YES 

YES 

NO - ERROR 

PACK FULL 

SAVE NEH CYL VALUE 

ZERO SECTOR 

ZERO OUT HEAD 

60 SEEK 

reao or write 7 

WRITE 

READ 
CONTINUE 



> nAX ? 

YCS 

MO - RETURN 

INC. THE HEAD IF POSSIBLE 

HA XI HUH? 

NOT POSSIBLE 

SET THE HEAD 

TO 1 

SET SECTOR TO ZERO 

6ET THE CYLINDER VALUE 

VALID ? 



Pack full 

save the new cylinder 
zero out the sector 
zero out the head 
get the f«:turn address 

* 

* 
•SECTOR) • 

* 

* 
* 
« 

« 



THIS ROUTINE WILL RETURN THE DISC PARAHETERSCCYL- HEaO 
FOR THE PROe«AM nhhSPR xN THE XMDEV LOCK UORO. 

input: R3=REturn address 

OUTPUT! location "DCOPY" = SECTOR 
"DC0PY+2B = hEaO 
"OC0Pt+4B = CYL 



noGiaozo 

HDG18030 
HD618040 
MD61805Q 
MDS18060 
MDGI8U7O 

Hosisoeo 

MDG1S090 
MDS18100 
HOGiellO 
HDG1812C 
HDG18130 
HDS18140 
HOfilSlSO 
HOG18160 
HO(318170 
HOGieiaO 
HDGiel90 
HDS18200 
!HOG18210 
HOS18220 
WOS16230 
»«JSl«2i4Q 
M;DS18250 
fi|DS18260 
«OS18270 
flDS16280 
HDG18290 
HOG18300 
HD618310 
HDG16520 
NOS16330 
Hi:>Gl6A40 

HOBisaso 

HOS18360 
MDS18370 
HDS1838D 
HBS1«59;0 
HDGl6*t00 
HOG18410 
HOS18420 
110618430 
H0S1844a 
HOG18*50 
;H061846o 
WD61647a 
WOG184B0 
HDS18490 
M0G18SOO 
f*DG185lo 
HOS16520 
MOSlSSsg 
M0818540 
1«5S1655Q 
nDG18560 
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00134CI 
OU13501 
0013541 
0013581 
00135CI 
00135EI 



0013661 
0013681 
00136CI 
OO137OI 
00i3?tl 
0013781 
00137CI 
0013801 



0013641 
0013881 
00136C1 
0013901 
0013921 
0013961 
0013981 
00139CI 
0U13A0I 
0013A41 
0013A8I 
OOiSACl 
0013B0I 
0013841 
0013B8I 
0013BAI 
0013BEI 
OOiscOI 
0013C4I 
0013C81 
0013CCI 
DOiSDOI 



0000 
5030 
4130 
4820 
C520 
2135 
C810 

j> -2 Cm 

0000 
243F 
4O3O 
4830 
4O3O 
D330 
D230 
4840 
4300 



134CI 
8E80 = 
e4A6 : 
8B94 : 
FFFF 

OOEB 

13661 

8ES2 : 
8B7C : 
8E7C = 
8B76 '. 
8E76 
8C46 
a02C 



0000 
5030 
4820 
C520 
0333 
4130 
2430 
4030 
4830 
4U30 
D330 
D230 
4640 
0330 
4030 
2430 
4030 
0788 
4130 
DEAO 
4130 
E6S0 
0865 



0021001 
0017FAI 
OOIEECI 



:00221lI 
rOOlEECl 
s0021FUl 
rOOlEEEI 
:0021F2X 
:0021C6I 
:0013B0I 



13841 

8E48 =0021001 

8B5C =001EE8I 

FFFF 

83EC r001782I 



8E82 
8B48 
8E4C 
8B42 
8E46 
8E14 
EC96 
8E48 



:0Q221EI 
:001EE8I 
:0021FOI 
lOOlEEAI 
:0021F2I 
:002lC4I 
:00004AI 
:002200l 



8E44 =0022U2I 

861A =0019DEI 
84E7 sOOlSAFl 
8644 sOOlAlUI 
8C0C i:0020ACI 



1667 
1858 
1659 
1660 
1861 
1862 
1663 
1664 

% O^ at 

1866 
1867 
1868 
1869 
I67O 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1678 
1879 
1860 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1689 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1698 
I699 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
I9O7 
190a 
1909 
1910 
1911 



UPDTPT 

SAVE RETURN 

LOAD INPUT ADDRESSES 



UPPTl 



EQU 


* 


STA 


RS.UPOTRN 


BAL 


R3,LIDAD 


LH 


R2,P6HIPN 


CLHI 


Ra.X'FFFF' 


BNES 


UPPTl 


LHI 


R1,X»EB» 


a 


irnaA 




^T\i\r^ 


EQU 


« 


LIS 


R3,15 


STH 


RS.OPDFLS 


LH 


RS.PSHIPN 


STH 


R3,PSHUPN 


LB 


R3tPS«IPN+8 


STB 


R3»PS«UPN+2 


LH 


R4.TRK0rN*2 


B 


upocon 



IS 
NO 
YES 



IT LOCKED ? 
ERROR 



SET THE UPDATE FLaS 



BRANCH TO COHHON 



U P T X X 

THIS ROUTINE WILL UPDATE THE DISC DIRECTORY AS FOLLOWS! 
THE ENTIRE DIRECTORY FROM THE OUTDEV LOCK WORD VALUE 
IS ZEROED OUT. UsEO FOR WRITE EOV AND WHEN COPY OR CREATE 
IS PERFORHEO FROM OTHER THAN EOV. 

input: R3 = RETURN ADDRESS 

OUTPUT! NONE OTHER THAN THE UPDATED DIRECTORY. 



UPDTXX 

SAVE RETURN 

GET THE LOCK WORD 

IS IT LOCKED 7 

YES - RETURN 

DIRECTORY 

SET THE FF. BF FLA6 



UPDCOH 



EQU 


« 


STA 


R3,UP0TRN 


LH 


R2«PGH0PN 


CLHI 


R2.X»FFFF» 


BER 


R3 


BAL 


R3,L0DAr) 


LIS 


R3,0 


STH 


R3,UPDFl5 


LH 


R3.PGH0PN 


STH 


R3,PSHUPiy 


LB 


R3.PGH0PN+2 


STB 


R3,PGMUPN+2 


LH 


R4.TRK0FN 


LB 


R3«S0D 


STH 


R3.CYL 


LIS 


R3,0 


STH 


R3,HEA0 


XAR 


R6.R8 


BAL 


R3,W0FT 


DC 


RA.SEEK 


BAL 


R3,FRSRW 


LDAI 


R5, DIRECT 


LDAR 


R6<R5 



SET START 

SET CYL TO START 

CLEAR 

SET HEAD TO ZERO 

SET SECTOR TO ZERO 

SET UP FILE 

SEEK 

WAIT 



«DG18570 
MDS16580 
HOG18590 
HOS18600 
HDGI861O 
HDS1862Q 
HDS18630 
MDG186«»0 

nosiieio 
MOGI8670 

flDS1868C 

HOG18690 

HOS18700 
MDS18710 
HDG18720 
MDS18730 
HDG18740 
HOG18750 
PIDS18760 
H0fil8770 
HDSl87eo 
HDS18790 
MDG18800 
nOGiaoiO 
HDG1S820 
•«DS18830 
nD618840 
H0G18e50 
NDS18860 
MDG18870 
MDS13680 
HDG18390 
H0G18900 
HDG18910 
H0618920 
MOG18930 
MOG18940 
MUG18950 
«DG18960 
MDS18970 
HDS189S0 
•1DG18990 
HOG19000 
HOGI9O1O 
HDG19020 
HOSI9O3O 
MDG19040 
MDG19U50 
nOGl9060 
HDGI9O7O 
MDG19080 
HDG19U90 
HDG19iO0 
nDG19110 
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*001302I 


CA60 aOFF 




1912 




AAI 


R6,X'FF' 




MDG19120 


0013D6I 


4130 8604 


=0019DEI 


1913 




BAL 


R3,MDFT 




nOS19130 


OOiSDAl 


4130 813C 


=00151ftl 


1914 




BAL 


R3tR0lSC 


GO READ 


HDG1914a 


0013DEI 


C830 EEEE 




1915 




LHI 


R3,X«EEEE« 


IS THE FIRST BYTE 


MDS19150 


0013E2I 


4530 6CC6 


=OOaOACI 


1916 




CUH 


R3, DIRECT 


X'EEEE' 7 


MDG1916Q 


0013E6I 


2335 




1917 




BES 


UPOTXl 


TES OK 


HDG19170 


0013E8I 


C810 OOEO 




1918 




LHI 


Rl.X'EO* 


NO 


H0G19l8a 


0013ECI 


4300 saE4 


=001CD4l 


1919 




B 


ERRA 




nDG19l90 


0013F0I 


0722 




1920 


UPDTXl 


XAR 


R2»R2 




MUG19200 


aoi3F2i 


4832 8C86 


=0020ACI 


1921 


UP'^TX3 


LH 


R3.DIRECT(R21 


SET THE NUMBER FROM THE DIRECTORY 


HOG19210 


&013F6I 


4530 80F6 


=0a2lF0I 


1922 




CLH 


R3,PG«UPN 




HOS19220 


0013FAI 


2138 




1923 




BNES 


UP0TX2 


NO 


NDG19230 


0013FCI 


D332 eCAE 


S0020AEI 


1924 




LB 


R3,0IRECT*2(R2) 


YES - ARE THE THIRD OIGITS = 7 


MCG1924Q 


ttOinOOI 


0310 80EE 


=0021F2I 


1925 




UB 


RltPeMUPN+2 




HOG19250 


001«V0<*1 


0551 




1926 




CLAR 


R3,R1 




HO819260 


0Q1406I 


4330 8044 


S00144EI 


1927 




BE 


UPFIND 


YES HATCH 


WO619270 


OOlM'OAl 


2628 




1928 


UPDTX2 


AIS 


R2f8 


BUf^P POINTER 


HDG1928Q 


0011* OCI 


t520 OtOO 




1929 




CLHI 


R2,X»100» 


WAX 7 


HO&19290 


0014101 


203F 




1930 




BNES 


UPDTX3 


NO 


nOG19300 


^014121 


2661 




1931 




AIS 


R8,l 


TES - 6UW SECTOR 


HD619dlQ 


OOltl"*! 


4584 FltC 


=0005641 


1932 




CLH 


R8.SECTAB(R4» 


HAXiWIfl? 


HOG 19320 


♦ooimei 


233c 




1933 




BE 


UP0TX4 


NO 


MOG19550 


OOIHIAI 


E650 8C6E 


=0020ACI 


1934 


UPDTXS 


loai 


R5, DIRECT 


YEs 


MOG19340 


OOltlEl 


0865 




1955 




LOAR 


R6,R5 




HO619350 


*001l*20l 


CA60 OOFF 




1936 




AAI 


R6.X«FF« 




MOG19360 


0014241 


4130 85B6 


=0019DEI 


1937 




3AL 


R3.W0FT 




MOSi9370 


0014281 


4130 eOEE 


=00151AI 


1938 




BAL 


R3.RDISC 


READ NEXT DIRECTORY 


HOG19S60 


00142CI 


4300 FFCO 


30013FOI 


1939 




B 


UPOTXl 




BCS19390 


0014301 


4820 8DCE 


=0022021 


1940 


UP0TX4 


LH 


Ra.HEAD 




MOSl9t00 


0014341 


4524 F13A 


=0005721 


1941 




CLH 


R2,H0TAB(R4> 


MAXIPI0H7 


WDGl9<tl0 


•09145al 


2337 




1942 




BE 


UPOTXH 


NO - HATCH 


l«)S19*20 


0ai43Al 


2621 




19*3 




AIS 


R2«l 




f«D6l9430 


00143CI 


4020 80C2 


=0022021 


1944 




STH 


R2.HEA0 


SET HEAD TO +1 


KOG19440 


0014401 


0766 




1945 




XAR 


RS.RS 


ZERO SECTOR 


MOG19'»-50 


0014421 


4300 FF04 


=00141AI 


1946 




B 


UP0TX5 




HOGl9t60 




0000 1446] 




1947 


UPDTXn 


EQU 


* 


MO BATCH 


HDS19470 


0014461 


caiO OOEB 




1948 




LHI 


RltX'EBt 




»10G19480 


00144AI 


4300 8886 


=001C04I 


1949 




B 


EHRA 




TOS19490 




0000 144E] 


[ 


1950 


UPFINO 


EfiU 


« 




KDS19500 


00144EI 


4810 80CC 


=00221EI 


1951 




LH 


Rl.UPOFLS 


SET FF/8F - UPDATE FUiS 


HOS19S10 


0014521 


4230 SD62 


30014BSI 


1952 




mz 


UPOTPl 




HO619520 


0014561 


2410 




1953 




LIS 


Rl.O 




BDS19550 


0G1458I 


4012 8C50 


=0020ACI 


1954 




STH 


RliOIRecTtR2) 


ZERO OUT NUnBER BUT LEAVE 


HOS19540 


0CH45CI 


0212 aC4E 


=0020AEI 


1955 




ST8 


R1.DIRECT+2(R2) 


SECTOR POINTER 


NOS19550 


0014601 


2628 




1956 




AXS 


R2,6 




HD519560 


0014621 


C520 0100 




1957 


UPFINl 


CLHI 


R2,X»100« 




140S1957a 


Q01466I 


2335 




1958 




BCS 


UPXWBl 




MDS195eo 


0014681 


D212 3C40 


=0020ACI 


1959 




STB 


Rl, DIRECT (R2) 


ZERO ALL REMAINING DIRECTORYS 


HDSi9&9G 


00146CI 


2621 




1960 




AXS 


R2fl 




HOS19600 


00146CI 


2206 




1961 




BS 


UPF IMl 




HDS19!610 


0014701 


E650 8C38 


=0020ACI 


1962 


UPXUBl 


LOAI 


R6, DIRECT 




H0G19620 


0014741 


0865 




19&5 




LDftft 


R6,R5 


STORE THE DIRECTORY BACK ON 


BD€l9fr5a 


*0Q1476I 


CA60 OOFF 




1961S 




AAI 


Rfe.X'FF. 


TKC PACK. 


MOS 196^0 


00147AI 


4130 9560 


=00190EI 


1963 




BAL 


R3,«0FT 




MDS19&5Q 


0Q147E1 


4i3o 809E 


=0015201 


1966 




BAL 


RBtHOISC 




HDG19660 



MHD 


GENERATOR 


06-177F02ROOM91A13 






PA6E 


S7 1SS13557 11/13/81 






0011+821 


2420 






1967 






LIS 


R2iO 


ARE THERE HORE SECTORS TO 




HOG19670 


ooi'ta'+i 


2'HO 






1968 






LIS 


R1,0 


ZERO OUT, 




HOGl96e0 


0011861 


D212 


SC22 


=0020ACI 


1969 


UPFI2F 


STB 


RliDIRECT(R2> 






HDS19690 


OOlfSAl 


2621 






1970 






AIS 


HZil 






HDG19700 


ooitaci 


C520 


0100 




1971 






CLHI 


R2.X'100« 






MOG19710 


0011*901 


2035 






1972 






BNES 


UPFIZF 






HDS197ao 


001<t92I 


2681 






1973 






AIS 


R6tl 


DIRECTORY IS FULL OF ZEROES 




HDG19730 


OOlt^tl 


4584 


FOCC 


=0005641 


1974 






CLH 


R8,SECTAB(R«H 


HAXIHUn? 




HOG19740 








__/\ft« j»"»riT 


4 One 






aMP 


flnwUEa« 


MA 




HDG197S0 


wwl496l 


4c^w 


»-ru4 


^l/U4.T J "• * 


*i' /a 






Divt. 










00149CI 


4830 


8062 


=0022021 


1976 






LH 


R3.HEAD 


ALL SECTORS ARE ZERO 




HDG19760 


0014AOI 


4534 


FOCE 


=0005721 


1977 






CLH 


RS.HOTAatRI) 


HAXIHUH? 




NDG19770 


♦ OOltAifl 


2337 






1978 






BE 


UPFIEN 


YES 




R0S19780 


OOl'fAel 


2631 






1979 






AIS 


R3,l 


NO 




HOS19790 


OOlifASI 


4030 


8056 


=0022081 


1980 






STH 


R3,HEAD 


DO NEXT HEAD 




H0G19800 


OOlifACl 


0788 






1981 






XAR 


Re.RS 






HDGl98ao 


OOitfAEl 


4300 


FFBE 


=0014701 


1982 






B 


UPXWBl 






HDG198aO 


0014821 


5630 


8D1A 


=0021001 


1983 


UPFIEN 


LOA 


RS.UPDTRN 






HD619d30 


0014B6I 


0303 






1984 






BR 


R3 






HDG19840 




0000 


1488] 




1985 


UPOTPI 


Eau 


« 






HDS19850 


0014881 


4O6O 


8CF0 


=002lftCI 


1986 






STH 


Re»ocopv 


STORE SECTOR 




MDG19660 


0014BCI 


4680 


80<»2 


=0022021 


1987 






LH 


R6«HEA0 






HD6l9a70 


OOmcOI 


4O6O 


aCEA 


C0021AEI 


1988 






STH 


Rat0C0PY4'2 


STORE HEAD 




«OG19a80 


0014C4I 


4660 


8036 


=0022001 


1989 






LH 


R8,CYL 






HDG19690 


0014C8I 


4O6O 


8CE4 


=0021601 


1990 






STH 


RStDCOPY'fX 


STORE CYL 




HOG19900 


OOltCCl 


4020 


8CE2 


=0021821 


1991 






STH 


R2.0COPY+6 


STORE POINTER 




nDbiS9i0 


oomooi 


220F 






1992 






BS 


UPFIEN 


RETURN 




MDG19920 










1993 


« 


THIS 


ROUTINE HILL COVERT THE 


ADDRESS In DCOPY TO THE 




MDS19930 










1994 


* 


ACTUAL LOCATION ON THE DISC 


OF THE PROSRAM 




MOS19940 




0000 


l'iD2] 




1995 


DIRPSH 


EQU 


* 






HOG19950 


0014021 


5030 


8012 


'=0021E8I 


1996 






STA 


R3.DIRPRN 


SAVE RETURN 




HD619960 


0014D6I 


4680 


8C02 


=0021ACI 


1997 






LH 


RSfDCOPY 


GET SECTOR 




Hr)G19970 


0014OAI 


4820 


acoo 


=0021AEI 


1998 






LH 


R2t0C0PY+2 






MDG19980 


00140EI 


4020 


8020 


=0022021 


1999 






STH 


R2,HEA0 


GET HEAD 




M0S19990 


ooi4e:2I 


4620 


eCCA 


=0021801 


2000 






LH 


R2,0C0PY+4 






MOG20U00 


O0i4E6l 


4O2O 


8016 


=0022001 


2OO1 






STH 


R2tCYL 


GET CYL 




MDG20010 


00l4EftI 


E650 


8BBE 


=0020ACI 


2002 






LOA I 


R5, DIRECT 






MDG20020 


0014EEI 


665 






2003 






LDAR 


R6iRS 






HOG20030 


•0014F0I 


CA60 


OOFF 




2004 






AAI 


R6.X«FF» 






n0620040 


0014F4I 


4130 


8fE6 


=0019DEI 


2005 






BAL 


R3,WDFT 






HDG20050 


O0l4FaI 


4130 


aoiE 


=00151AI 


2006 






BAL 


R3.RDISC 


READ DIRECTORY 




H0G20060 


0014PCI 


4820 


8CB2 


=0021821 


2OO7 






LH 


R2tDC0PY+6 


GET POINTER 




HnG20070 


0015001 


4882 


8BAC 


=0020801 


2006 






LH 


R8.DIrECT+'Hr2) 


GET CYL 




P1DG20060 


0015041 


4U80 


SCFe 


=0022001 


2009 






STH 


R8,CYL 






HDG20090 


0015081 


0382 


6BA7 


=0020831 


2010 






LB 


R8,DIRECT*7(R2J 


GET HEAD 




I»IDG20100 


ooisocl 


4O6O 


8CF2 


=0022021 


2011 






STH 


R8«HEA0 






n0620110 


0015101 


0382 


8B9E 


=0020821 


2012 






LB 


Re.0IRECT*6(R2) 


GET SECTOR 




HDG20120 


0015141 


5830 


8CD0 


=0021E8I 


2013 






LDA 


R3,0IRPRN 






nDG20130 


0015181 


0303 






2014 






BR 


R3 


RETURN 




MDG20l"tO 










2015 


««««r*«**««**»*«**«««««««»«*«««««i»«****««*«**«««««««**«***««*»*«*»*«**** 


MDG20150 










2016 


» 










* 


nD&20l60 










2017 


* 


R E 


A / fc 


1 R I T E 




* 


MDG20170 










2018 


* 


THIS IS THE COBBON BEAD / WRITE ROUTINE FOR ftLC MAGNETIC MEDIA 


* 


MDe201S0 










2019 


* 


REAO/WRITE 


: OPERATIONS. THE 1 


ROUTINE HAS H ENTRY POINTS. THE 


* 


nDG20l90 










2020 


» 


ENTRY POINTS ARE As FOLLOWS 


: 


* 


HD620200 










2021 


* 










* 


M0S202i0 
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2022 

2023 

2024 

2025 

2026 

2027 

2026 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

203a 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

206S • 

2069 « 

2070 * 

2071 • 
20T2 * 
2073 * 
20T4 * 

2075 » 

2076 * 



ENTRY POINT 
ROISC 



WD ISC 



WRTPB 



REAOPB 
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OPERATION 

THIS ENTRY MILL READ DATA FROM THE 
DISC. THE INPUT PARAMETERS ARE: 

r3 s RETURN ADDRESS 

R5 = Low ADDRESS OF READ BUFFER 

R6 = HIGH ADDRESS OF HEAD BUFFER 

RA = DISC ADDRESS 

r8 = SeLCH ADDRESS 

RC = CONTROLLER ADDRESS 

R8 = SECTOR TO BE READ 
"HEAD" = HEAD WHERE "RS" RESIDES 
"CYL" = CYLINDER WHERE "Rfl" RESIDES 

THIS ENTRY WILL WRITE DATA TO THE 
DISC. THE INPUT PARAMETERS ARE: 



R3 
R5 
R6 
RA 
RB 
RC 

PA 

"HEAD" 
"CYL" 

RO 

R2 

RO 
R2 



Return address 

Lou ADDRESS oF HRItE BUFFER 
HISH ADDRESS OF WRITE BUFFER 
DISC ADDRESS 
SeLCH ADDRESS 
CONTROLLER ADDRESS 
SECTOR TO BE WRITTrN 
HEAD WHERE "R8" RESIDES 
CYLINDER WHERE "R8i» RESIDES 

WORK REGISTER 
WORK REGISTER 

WORK REGISTER 
WORK REGISTER 



THIS ENTRY WILL WRITE A BLOCK OF DATA 
TO MAS TAPE OR CASSETTE. THE INPUT 
PARAMETERS ARE: 



R3 
R5 
R6 
RA 
RB 
RO 
Rl 
R2 



RETURN ADDRESS 
Low ADDRESS OF WRITE BUFFER 
HISH ADDRESS OF WRITE SUFFER 
DEVICE ADDRESS 



* 
* 

* 

* 
* 

*- 
« 

« 

* 
* 
« 

* 
* 

« 

* 
« 
« 

* 



SELCH ADDRESS 
WORK REGISTER 
WORK REGISTER 
WORK REGISTER 



(IF 



"WB" USEO>* 



this entry will RE«D 
from hag tape or cassette. 

parameters are: 



SLOCK Or DATA 
THE INPUT 



R3 - RETURN ADDRESS 
r6 = LOW ADDRESS OF READ BUFFER 
R6 = HIGH ADDRESS OF READ BUFFER 
RA = DEVICE ADDRESS 



MDS2a220 
MD620230 
HOG20240 
MDG20250 
MOS20260 
HOG20270 
KDS20280 
HDS20290 
MDG20300 
nOG203lO 
HDG20320 
H0620330 
M0G20340 
MD320350 
nDG20360 
HOG20370 
nOG203eo 
HOG20390 
MOG20'tOO 
MOG20410 
ttDG20420 
MOS20H.30 
MDS20'HtO 
MOS20'*50 
KOG20460 
KDS20'*7Q 
MOG20'»eO 
MOS20t90 
H0G2050a 
MDe20&10 
MD620520 
HO620530 
MDG20540 
nDe20550 
MD620560 
MDG20570 
nDG203&0 
nOG20&90 
HDG20600 
MO620610 
M0G20620 
nDG20630 
MOG20640 
MDS2065Q 
M0S2Q6&Q 
MDe20670 
MDG20680 
HID320650 
MDS20700 
HOG20710 
MOG20720 
MOS20730 
HOS20740 
HDS20750 
M0G2076Q 
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2077 


» 






RB = SELCH ADDRESS (IF =0 "RB« USED)* 


WDG2077C 










2078 


« 






Ri = Return address if a "fh" is read* 


MDG20780 










2079 


* 






RO = WORK REGISTER 


* 


HDG20790 










2080 


* 






R2 s WORK REGISTER 


* 


nOG208oo 










2081 


* 








* 


W0e208l0 










2082 


» 








* 


HD620e20 










2083 


* 






OUTPUT - ALL THE ABOVE ROUTINE WILL 


* 


MOG20830 










2084 


« 






RETRY ON A RECOVERABLE ERROR 


» 


WDSSOB^O 










2085 


* 






AND ABORT ON A NON-RECOVER- 


« 


WDG20850 










2086 


* 






ABLE ERROR. ALL REGISTER 


« 


WD620860 










2087 


* 






VALUES ARE RETURNED AS THEY 


* 


WDG20670 










2088 


* 






ENTERED EXCEPT FOR REGISTERS 


« 


wD62oeeo 










2089 


* 






RO. Rl, AND R2. ON A 


* 


WDG20890 










2090 


* 






RETURN THE DESIGNATED AREA 


• 


WDe20900 










2091 


« 






SPECIFIED BY R5 aND R6 IS 


* 


WD620910 










2092 


* 






GUARANTEED WRITTEN OR READ. 


• 


WD620920 










2093 


• 








« 


HDe20930 










2094 


*n,m*m**m****m**iL*<t*m***m*********m*i****L*******m************************ 


WDG20940 










2093 


« 










HOG20950 










2096 


* 










WDG20960 


OOlSlfll 


D320 


8398 


=0018661 


2097 


RDiSC 


LB 


R2, DREAD 


SET THE READ COWHAND 




MDG20970 


00151EI 


2303 






2098 




BS 


WRDSCl 






MOG20980 


0015201 


D320 


83aF 


=0018831 


2099 


WD ISC 


LB 


R2«DWRIT 


LOAD THE WRITE COHHANO 




WDG2O99O 


00l52itl 


0220 


ecoc 


=0022041 


2100 


UROSCI 


STB 


f»2eOISCWD 






MDS2i«00 


00x5281 


5030 


8C90 


=0021BCI 


2101 




STA 


R3,URTEnO 






WDG21010 


00152CI 


2't35 






2102 




LIS 


R3,5 


SET THE RETRY COUNT 




WD621020 


00152EI 


4030 


SCDA 


=00220CI 


2103 




STH 


R3, RETRY 






nOG21030 


0015321 


ZHiF 






2104 




LIS 


R3,15 


- SET THE DISC INDICATOR 




WDe21040 


ooisam 


HQ30 


8CE4 


=00221CI 


2105 




STH 


R3«RWoev 






MOG21050 


0015361 


1+300 


8090 


=:0015CCI 


2106 




3 


DISC 






WDG21060 




0000 


153C] 


r 


2107 


wrtpb 


ESU 


* 






nOG21070 


00153CI 


E610 


aiic 


=00165CI 


2108 




ldai 


Hl.PITERR 


SET THE EOV BRANCH 




HDG21U80 


UUlSHOI 


D320 


8364 


=0018A8I 


2109 




LB 


R2.MTWRT 


GET THE WRITE COHMABD 




HOG21O9O 


ooistm 


2303 






2110 




as 


HTCOli 






H0G21100 


00i5if61 


O320 


8360 


=0018671 


2111 


reaqpb 


LB 


R2iMTRE«D 


GET THE READ COMHaNO 




WDG21110 


00a5i*Al 


D220 


8CAA 


=0021F6I 


2112 


mtCon 


STB 


R2,MTC«n 


STORE THE COHHAND 




HOG21120 


00i5i*El 


5030 


8C6A 


S0021BCI 


2113 




STA 


R3,HRTEN0 






WOG21130 


0015521 


5010 


8C8A 


=0021E0I 


2114 




STA 


Rl.EOVRTN 


SAVE THE EOV BRANCH ADD. 




W0G21140 


0015561 


2415 






2115 




LIS 


Rl,5 


SET THE WRITE RETRY COUNTER 




K0G21150 


0015581 


4010 


8CB0 


=00220ci 


2116 




STH 


Rl. RETRY 


TO FIVE 




nDG21160 


00155CI 


2430 






2117 




LIS 


R3,0 


SET THE MAG TAPE INDICATOR 




HDG21170 


00155EI 


4030 


9CBA 


=00221CI 


2118 
2119 


» 


STH 


R3,RWDEV 






M0621160 
«DG21190 


0015621 


deao 


83'*4 


=0018AAI 


2120 
2121 


* 


OC 


RAtDISABL 






nDG21200 
H0G2121C 


0015661 


08BB 






2122 


HTRY 


LDAR 


RB.RB 


SELCH ? 




nOG2l220 


0015681 


4230 


8060 


=0015CCI 


2123 




BNZ 


selhrt 


YES - BRANCH 




HDG21230 


00156CI 


2430 






2124 




LIS 


R3t0 


NO - USE WB 




W0621240 


00156EI 


4030 


8C96 


=0022081 


2125 




STH 


R3,SELERR 


ZERO OUT THE SELCH ERROR FLAG 




110521250 


0015721 


D330 


8C82 


=0021F8I 


2126 




LB 


R3,HTCHn 


GET THE COWHAND 




WDG21260 


0015761 


D320 


8330 


=0018871 


2127 




LB 


R2.NTREAD 


GET THE READ COWHAND 




W1JG21270 


00157AI 


0523 






2128 




CLAR 


R2,R3 


IS THIS A READ ? 




WD621280 


00157CI 


4330 


8022 


=0015A2I 


2129 
2130 


« 


BE 


UBLKRD 


YES 




WDG21290 
MOG21300 


0D15B0I 


9EA3 






2151 




OCR 


RA.R3 


OUTPUT THE WRITE COWHAND 




WD621310 
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0015621 


0815 






2132 




LDAR 


R1,R5 


001581*1 


0S2(& 






2133 




LDAR 


R2.R6 


0015861 


9DA0 






2134 


mUB 


SSR 


RA.RO 


0015861 


2061 






2135 




BT6S 


6,1 


00158AI 


DAA5 


0000 




2136 




WO 


RA,0(R5) 


OQISSEI 


2651 






2137 




AIS 


R5.1 


0015901 


0565 






2138 




CUAR 


R6,R5 


0015921 


2266 






2139 




BNCS 


HTHB 


ooisgi*! 


0851 






2140 




LOAR 


RS.Rl 


0015961 


0862 






2141 




loar 


R6.R2 


0015981 


9DA0 






2142 




SSR 


RA,RO 


00159AI 


4270 


8024 


=0015021 


2143 




BTC 


7,nTERRa 


00159EI 


t300 


8076 


=0016181 


2144 




a 


C0NT5B 


0015A2I 


9EA3 






2145 


URLKRD 


OCR 


RA,B3 


OOlSAtl 


0615 






2146 




LOAR 


R1,R5 


0015061 


0826 






2147 




LOAR 


R2,R6 


0015A6i 


90AO 






2148 


HTRB 


SSR 


RAfRO 


0015AAI 


2061 






2149 




BT8S 


6.1 


0015ACI 


0BA5 


0000 




2150 




RD 


RA.OtRS) 


0015901 


2651 






2151 




AIS 


R5,l 


0015921 


0565 






2152 




CLAR 


R6.R5 


OOlSBM-I 


2286 






2153 




SFKS 


«TR8 


0015861 


0851 






2154 




LDAR 


R5,R1 


0015B8I 


0862 






2155 




LOAR 


R6,R2 


OOlSBAl 


90A0 






2156 




SSR 


RA.RO 


0015BCI 


2173 






2157 




BTFS 


7, HTERRB 


0015BEI 


1*300 


8056 


=0016181 


2158 
21S9 


* 


B 


C0MT5B 


0015C2I 


21HF 






2160 


hterrb 


LIS 


Rl,15 


OOlSCfl 


•toio 


8C40 


=0022081 


2161 




STH 


Rl.SELERR 


0015C6I 


4300 


804C 


=0016181 


2162 
2163 


« 


B 


C0NT5B 




0000 


15CCI 




2164 


DISC 


COU 


« 


0015CC1 


DEBO 


B2DC 


sOOlSACi 


2165 


selwrt 


DC 


RB,STOP 


OOISDOI 








2166 




1F2 


AOC-H 


0015D0I 


3425 






2167 




EXHR 


R2fRb 


0015021 


3*36 






2168 




CXHR 


R3.R6 


00150*1 


9AB2 






2169 
2170 




WDR 
ENOC 


RB,R2 


0015D6I 


9685 






2171 


C0NT4B 


MKR 


RB.R5 


0015D8I 








2172 




IFZ 


ADC-4 


0015O8I 


9AB3 






2173 
2174 




WOR 
ENOC 


RBtR3 


OOlSOAl 


98B6 






2175 


C0NT4C 


»HR 


RB»R6 


OQlSDCl 


5050 


8BFC 


S0021DCI 


2176 




STA 


R5,STA0n 


OGiSEOI 


5060 


8B04 


=0021681 


2177 
2178 


♦ 


ST A 


R6,FADD 


GOidE^I 


4S20 


3C34 


£e0221Cl 


2179 




LH 


Rg^RHDCy 


0015E8I 


4230 


80E4 


=0016001 


2180 
21S1 


* 


3NZ 


SELDIS 


OOlSECl 


0320 


8C08 


=002iF6I 


2162 




LB 


R2.HTCnD 


OOiSFOI 


D310 


82C3 


=0018671 


2183 




LB 


Rl.MTREAD 


0015F»I 


0512 






2164 




CLAR 


R1.R2 


0015F6I 


2335 






2185 




BES 


EHTRO 


0015F81 


9EA2 






2186 




OCR 


Ra.R2 
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SAVE R5 
SAVE R6 
SENSE STATUS 
WAIT FOR BUSY NOT 
WRITE DATA 
8UHP 
00NE7? 
NO, LOOP 
RESTORE R5 
RESTORE R5 
SENSE STATUS 
SO TO RETRY 

OUTPUT THE REAO COMHAND 

SAVE R5 

SAvt R6 

SENSE STATUS 

WAIT FOR BUSY NOT 

READ DATA 

BUflP 

DONE?? 

NO, LOOP 

RESTORE R5 

RESTORE R6 

SENSE STATUS 

SO To RETRY 



STOP THE SELCH 

* 

MS START ADDRESS DOWN 

ns End address down 

WRITE THE FIRST SYTE 

WRITE THE 2N0 + 3RD BYTES 

WRITE THE 4TH BYTE 

* 

WRITE THE 5TH S 6TH ByTES 

SAVE THE START ADDRESS. 



GET THE HAG TAPE COHHsND 

SET MAG TAPE READ COHfUAND 

IS THIS A MAS TAPE READ ? 

YES - GIVE ESELCH READ COHKAND 

NO - GIVE HaGTPE write COKHAND 



S04 
R04 
R04 

R04 

R04 
R04 
R04 



HOe21320 
HOS21330 
BDS21340 
H0G213S0 
HOG21360 
MOG21370 
HDG213eO 
MDG21390 
nDG21'*00 
HOG21'H0 
nOG2l420 
HQS21450 
M0S21'»40 
WDS21'*5C 
M0S21460 
M0G21470 

woG^l'^80 

*|OG21**90 
HOS21500 

noe2i5io 

nOG21&20 
WD621S30 
M0621&40 
M0S2155Q 
B0S21560 
nDG2l570 
HOG215-80 
l«IOS215»o 
WDG21fe00 
nD621frl0 
noe2l620 
HOG21630 

nDe2i&40 

K0621&SO 



HDL 05910 
HDG21790 
HOL0S950 

noeaisso 

nDS21S40 

nOsaisso 

fi|DG21670 
n062l680 
H052a890 
WOS21900 
HOS21910 
nDS2l950 
f<tOG2l960 
HOS21970 

nDG2i9eo 
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0015FAI 








2187 




IFZ 


ADC-4 


OOlSFAl 


DEBO 


82AB 


=0018A9I 


2188 
2189 
2190 
2191 




OC 

ELSE 
OC 
ENDC 


RBiESWRT 
RBtSURT 


*0015FEI 


2304 






2192 




B 


SELl 


0016001 


9EA2 






2193 


EHTRO 


OCR 


RA,R2 


0016021 








2194 




IFZ 


ADC-4 


11 n. ^ n«T 


nPBn 














--iD"£i 


uuow 


ocno 


svCiSSSI 


«i55 
2196 
2197 
2198 
2199 


* 


OC 

ELSE 
OC 
ENDC 


RB«£Ske.ad 
RB.SREAO 


0016061 


4120 


847E 


S001A88I 


2200 


SELl 


BAL 


R2,SETSEL 


00160AI 


0200 


8002 


S001610I 


2201 
2202 


* 


LPSH 


C0NT5A 


0016101 








2203 




ALISN 


8 




0000 


16101 




2204 


C0NT5A 


E9U 


* 


0016101 








2205 




IFHZ 


ADC-2 


0016101 


0000 






2206 




DC 


X'0000»,X»FOFO' 


0016121 


FOFO 














0016141 


0000 


16181 




2207 
220S 
2209 
2210 
2211 
2212 


■ * 


DC 

ELSE 
DC 
ENDC 


A<C0NT5B) 
X'F0O0',2(CONT5B) 




0000 


16181 




2213 


C0NT5B 


ESU 


« 


0016181 


D320 


8BDC 


=0021F8I 


2214 




LB 


R2,HTCI«I0 


00161C1 


D310 


8297 


=0018671 


2215 




LB 


Rl.HTREAD 


0016201 


0512 






2216 




CLAR 


R1,R2 


♦00X6221 


2339 






2217 
2218 


* 


BE 


CONHTX 

NO 


00162tl 


90A1 






2219 




SSR 


RA,R1 


0016261 


C310 


0010 




2220 




THI 


Ri,xno« 


00162AI 


2335 






2221 




BZS 


CONHTX 


00162CX 


C810 


O0E9 




2222 


MORUN 


LHI 


R1.X'E9' 


0U1630I 


4300 


e6AU 


=0010041 


2223 
2224 


* 


8 


ERRA 




oooo 


16341 




2225 


CONMTX 


EOU 


* 


0016341 


9DA1 






2226 


CONHTl 


SSR 


RA.Rl 


0016361 


4210 


8634 


=001C6EI 


2227 




BTC 


l.OEVDU 


00163AI 


C310 


0010 




2228 




THI 


Rl.X'lO' 


00163el 


2235 






2229 




BZS 


CONMTl 


0016401 


C310 


0020 




2230 




THI 


RltX»20» 


0016441 


2335 






2231 




BZS 


C0NMT9 


0016461 


C810 


0003 




2232 




LHI 


R1.X'D3» 


00164AI 


43U0 


8686 


=0010041 


2233 




B 


ERRA 




0000 


164EI 




2234 


C0NHT9 


EQU 


* 


00164EI 


C310 


OOCO 




2235 




THI 


Rl.X'CO' 


0016521 


2135 






2236 




8N2S 


MTERR 


0016541 


4830 


8BB0 


=0022081 


2237 




LH 


R3,SELERR 


0016581 


4330 


8046 


=0016A2I 


2238 
2239 


* 


BZ 


MTEND 




0000 


165CI 




2240 


MTERR 


EQU 


« 



ESELCH WRITE COMMAND R04 
6IVE SELCH WRITE COFWaNO R04 

SIVE THE MAGTPE READ COHMAND 

* 

SIVE THE ESELCH read connAND 

GIVE SELCH READ ConnAND 

* 

SET UP FOR A SELCH INTERRUPT 



R04 
4 

R04 
» 

RQ4 

R04 
R04 
R04 



GET THE HT COHHANO 
IS THIS A HT READ 

YES » DONT CHECK FOR WRITE PROTECT 

THE MT WRITE - CHECK TO SEE IF 

TAPE RESPONDED TO THE WRITE COHHAND 

NO MOTION SET ? 

NO - TAPE IS MOVING 

YES - THEN TAPE DiDNT MOVE 

PRINT ERROR 



NO - THE MAGTAPE 

DEVICE Is DU 

WAIT FOR NO MOTION 



END OF TAPE 



ANY ERROR ? 

YES - TRY TO RECOVER 

NO - SELCH ERROR 7 



nDLU6060 

MDL0610Q 

nOG22000 
HO622010 

mOL**6"6" 

M0t06100 

M0e22l30 
MOG22140 
H0S22150 
n0622l60 
HOe22170 
MOS22160 
ND622190 
MDG22200 

MOG22210 
M0622220 
M0e2223o 
H0e22240 
MO6222S0 
MDs22260 
HDG22270 
M06222S0 
M0622290 
MDS22300 
HDG22310 
MDS22320 
MDe22330 
MDG22340 
HOG22350 
nDS22360 
MO622370 
MOG22380 
MDS22390 
MDG22400 
VOS22410 
MDG22420 
HDG22430 
HDG22440 
MUS22450 
M0622460 
H0G22470 
MDS22460 
MDG22490 
MDe22S00 
MO622510 
MOG22520 
MO622530 
MDe22S40 
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00165CI 


9DA1 




2241 




SSR 


RA.Rl 




00165EI 


C510 0010 




2242 




THI 


R1,X»10' 




0016621 


2233 




2243 




B2S 


MTERR 




e0lfe6tl 


0320 8B90 


=0021F8I 


2244 




LB 


R2tKTCM0 


GET THE HAG TAPE COHHaND 


0Q1666I 


0330 824B 


=0018871 


2245 




LB 


R3.MTREAD 


GET THE READ CHD 


00X66CI 


0532 




2246 




CLAR 


R3,R2 


HT READ 7 


*00166El 


2136 




2247 




BNE 


NTERRW 


NO • ERROR 


0016701 


9DA1 




2248 




SSR 


RA.Rl 


YES - CHECK FOR EOF. 


0016721 


C310 0040 




2249 




Tril 


R1.X'40« 


EOF 1 


0016761 


2334 




2250 




BZS 


MTERRW 


NO 


0016781 


5830 8864 


=0021E01 


2251 




LOA 


R3,E0VRTN 


YES - TAKE THE EOF RETURN 


00167CI 


03U3 




2252 




BR 


R3 




D0l67el 


4630 saeA 


=00220CI 


2253 


HTERRW 


LH 


R3, RETRY 


TRY TO RECOVER 


0016a2I 


2135 




2254 




BN2S 


flTERRl 




0016841 


C610 00E3 




2255 




LHI 


R1»X'E3' 


RECOVERY UNSUCCESSFUL 


uoieasi 


43U0 6648 


S001CD4I 


2256 




B 


ERRA 




0Q168CI 


2731 




2257 


HTERRl 


SIS 


R3,l 




00i68El 


4030 887A 


=00220CI 


2258 




STH 


R3. RETRY 




0016921 


4100 82EA 


=00198"! 


2259 




BAL 


RO.NOHOTN 


WAIT FOR NO NOTION 


0016961 


OEAO 8213 


=0018ADI 


2260 




DC 


RA.BKSP 


BACKSPACE THE FILE 


00169AI 


4100 82E2 


=0019601 


2261 




BAL 


RO.NOnOTN 


WAIT FOR NO NOTION 


0U169EI 


43U0 FEC4 


=0015661 


2262 
2263 


* 


B 


«TRY 






0000 16A2I 




2264 


htend 


EQU 


« 




001&A2I 


58^0 8816 


=0021BCI 


2265 




lda 


R3,«RTEN0 




0016A6I 


0305 




2266 
2267 


* 


BR 


R3 






0000 l6Aa] 




2268 


E0« 


EQU 


« 




00l6fl8l 


DEAD alFF 


=0018ABI 


2269 




OC 


RAtWFH 


WRITE A FILE nSRK 


0016ACI 


4100 32D0 


=0019801 


2270 




BAL 


RO.NOHOTN 


WAIT FOR NO NOTION 


0Q16B0I 


DEAD 81F7 


=0018ABI 


2271 




OC 


RA.HFM 




0l6BtI 


4100 82C8 


=0019801 


2272 




BAL 


RO.NOHOTN 


WAIT FOR NO NOTION 


0O16B8I 


OEAO 81F1 


s0016AOI 


2273 




OC 


RA.BKSP 




0016BCI 


4100 a2C0 


=0019801 


2274 
2275 


* 


BAL 


RO.NOnOTN 


WAIT FOR NO NOTION 


UU16C0I 


41£0 SlFS 


sOOlSBCI 


2276 


PEOJ 


BAL 


RE.CRLF 


DO Cr/LF 


0016C4I 


E620 80B4 


=00177CI 


2277 




LOAl 


R2,E0J 




0016C8I 


4130 81FA 


=0018C6I 


2278 




BAL 


R3. PRINT 




0016CCI 


4300 e9CC 


=00009CI 


2279 
2280 


♦ 


B 


REDTTY 




0016OOI 


90C1 




2261 


SEtDIS 


SSR 


RC.Rl 


WAIT 


0016021 


2221 




2282 




BFBS 


2.SEL0IS 


CONTROLLER IDLE 


0016041 


4130 6306 


=00190EI 


2283 




BAL 


R3.WDFT 




0016061 


4630 3B32 


=00220e1 


2284 




LH 


RSiCUTRkOEN 




0016DCI 


C550 0008 




2235 




CLHI 


R3t8 




♦OOl&EOI 


235C 




2266 




BE 


SCLDIS2 




0016E2I 


9AC6 




2287 




UOR 


RC.R8 


WRITE SECTOR 


OOi^Cil 


4810 8B1A 


=0022021 


2268 




LH 


Rl.HEAO 




0Q16E8I 


lllA 




2289 




SLLS 


Riao 


SCALE 


0016EAI 


4870 8812 


=0022UOl 


2290 




LH 


R7,CYL 




0016EEI 


0617 




2291 




OAR 


R1.R7 


NERSE CYL 


OO16F0I 


98C1 




2292 




WHR 


RC.Rl 


WRITE HEAD/CYL 


0016F2I 


90C7 




2293 




SSR 


RC.R7 




0016P4I 


2221 




2294 




BFBS 


2.1 




«0016F6l 


2306 




2295 




B 


SELDISl 





HDS225S0 
NDG22S60 
MDG22&70 
nO622580 
MDS22590 
HQG22600 
HDG22610 
NDG22620 
fiaG22630 
MDG22640 
f"lDS226S0 
HDG2266Q 
nOG22670 
M0G22680 
i«t0622690 
H0S22700 
NDG22710 
MOG22720 
nDG22730 
MDG22740 
NDS22750 
MOG22760 
HDG2277tl 
MOG22780 
■"10622790 
HO622600 
n06228l0 
NOe22820 
MDS228S0 
M0622a40 
N0622650 
Nt)e22860 
MOS22870 
N0622SaO 
HDS22a90 
ND622900 
MDS22910 
nDG22920 
HOS22930 
N0622940 
KDS22950 
nDG229eo 
NDS2297Q 
NOS22960 
NDe22990 
MD623000 
NOG23U10 
P!uS23S20 

NDG23030 
|ii!0623U40 

noe233so 

HO523060 
H0623070 
N0e23060 
WDS23090 
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0016F8I 


4810 


8BU6 


=0022021 


2296 


SELDIS2 


LH 


Rl.HEAD 




HOS23100 


0016FCI 


1H5 






2297 




SLLS 


R1.5 


POSITION THE HEAD BIT 


KDG23ilO 


0016FEI 


0618 






2298 




OAR 


R1,R8 




HD623120 


0017001 


9AC1 






2299 




WDR 


RC.Rl 


SET UP THE HEADER 


fiOS23l30 




0000 


17021 




2300 


SELDISi 


EQU 


* 


« 


R04 


OO17O2I 


0320 


SAFE 


r00220iH 


2301 




LB 


R2.DISCIHD 


GET THE DISC COMHftND 


*IDS23l50 


0017061 


0310 


81AC 


S001836I 


2302 




LB 


Rl, DREAD 


EXTENDED SELCH COWHANDS 


HDe231S0 


00170AI 


0512 






2303 




CLAR 


R1,R2 


IS This a disc read 7 


nDS23l9Q 


00170CI 


233A 






2304 




3ES 


ESRO 


YES - GIVE ESElCH READ CHD 


nDG23200 










2305 


* 




NO 


. GIVE ESELCH WRITE C«D. 


HDG23210 


00170EI 


9DA1 






2306 




SSR 


RAtRl 




MDS23220 


0017101 


C3X0 


0080 




2307 




THI 


R1,X'80» 


WRITE PROTECT SET 7 


MOG23230 


00171^1 


4230 


805C 


rO0l774I 


2308 




BNZ 


HRTPRT 


YES 


HDG23240 


0017181 


9EC2 






2309 




OCR 


RCiR2 


START THE DISC 


nDG23250 


00171AI 








2310 




IFZ 


ADC-4 


IF 32 BIT 




00171AI 


DEBO 


818B 


S0018A9I 


2311 

2312 




OC 
ELSE 


RB.ESWRT 


STaRT THE SELCH 


R04 










2313 




OC 


RB.SHRT 


START THE SELCH 


R04 










2314 




ENOC 








*00171EI 


2304 






2315 




8 


SELDl 




HDG23270 


0017201 


9EC2 






2316 


ESRD 


OCR 


RCfR2 


START THE DISC REaO 


nDG232aO 


0017221 








2317 




IFZ 


ADC-4 


IF 32 BIT 


R04 


0017221 


DEBO 


8193 


=0018891 


2318 

4X« n 




OC 

^1 0^ 


RB.ESREAO 


START THE ESELCH READ 


HDS23290 










2320 




cwoc 

OC 


RB.SREAD 


START THE SELCH 


R04 










2321 




ENOC 








0017261 


4120 


a35E 


=001A88I 


2322 


SELDl 


SAL 


R2,SETSEL 


SET UP FOR SELCH INTERRUPT 


HDG23440 


00172AI 


C200 


8002 


=0017301 


2323 




LPSU 


CONTDS 




HDG23450 


0017301 








2324 




ALI6N 


8 




MDG23460 




0000 


17301 




2325 


CONTDS 


EQU 


* 




MOG23470 


0017301 








2326 




IFNZ 


ADC-2 




KCG23480 


0017301 


0000 






2327 




DC 


X»0000«.»»F0F0« 




MDG23490 


0017321 


FOFO 


















0017341 


0000 


17381 




2328 
2329 
2330 
2331 
2332 


* 


OC 

ELSE 

DC 

ENOC 


A (CONDSl) 
X«F000».Z(CONOSl» 




HDG23500 
HDS23510 
HOG23520 
M.G23550 
("IO523540 


0017381 


4130 


a33E 


=001A7AI 


2333 

2334 


CONDSl 

• 


BAL 


R3,SETC0N 




H0623550 
MDG23d60 


00173CI 


9DA1 






2335 


C0N0S3 


SSR 


RA.Rl 




HDG23670 


00173EI 


4210 


852C 


=001C6EI 


2336 




BTC 


l.OEVDU 




HnG23580 


00i7<*2l 


4810 


SAAE 


=0021F4I 


2337 




LH 


Rl.CONSTA 




HDS23590 


00171+61 


C310 


0005 




2338 




THI 


R1,X»05' 


CONTROLLER ERROR 7 


HDG23600 


00174AI 


2134 






2339 




BNZS 


DSCERR 




HDS23610 


00l7'*Cl 


4610 


dAee 


=0022081 


23<t0 




LH 


R1,SELERR 




H0G23620 


*00l750l 


233D 






2341 




8Z 


DSCEND 




MDG23630 


0017521 


4630 


eAB6 


=00220CI 


2342 


DSCERR 


LH 


R3, RETRY 


THY TO RECOVER 


"DG23640 


0017561 


2135 






2343 




BNZS 


DSERRl 




PDG23650 


0017581 


C810 


00E3 




23if4 




LHI 


R1,X'E3« 


RECOVERY UNSUCCESSFUL 


nD623660 


00175CI 


4300 


8574 


=001CD4I 


2345 




B 


ERRA 




HDG23670 


0017601 


8731 






2346 


DSERRl 


SIS 


R3«l 




nDG23680 


0017621 


#030 


8AA6 


=00220CI 


2347 




STH 


R3, RETRY 




nDG23690 


0017661 


43U0 


FE62 


=0015CCI 


2348 




8 


SELHRT 




HDG23700 


00176AI 


4130 


a2A2 


=001A10I 


2349 


OSCEND 


BAL 


R3,FRSRW 


WAIT FOR DISC ADD. INTERLOCK 


HDG23710 
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00176EI 

0017721 



5630 6A4A =0Q21BCI 
0303 



0000 177*I 
00l77tl C810 00E9 
0017781 fSUO 6556 =001CD4I 



Q0177CI 
0017801 



tStF 4A20 
ODOA 



0017821 

0017661 

0017881 

00178CI 

0017901 

0017921 

0017961 

0017931 

00179CI 

0017AOI 

0017Al^I 

0017A6I 

0017AAI 

0017AEI 

0017B2I 

0017B*I 

0017681 

00178A1 

b017BEl 

0017COI 

00l7C*I 

0017C8I 

0017CCI 



HdAO 
2X35 
C600 
1*300 
9DA1 

csio 

2135 
C810 
H300 
C310 
2335 
C810 
1*300 
46B0 
2336 
DEBO 
9Dbl 
C510 
2135 
C810 
"tSOO 
48C0 
2339 



875'* rOOlEDAI 
OOlClOl 



1+53* 
8480 



0004 

00E6 
8531* 
0001 

OOEE 
9526 
872 A 

SOFh 

0004 

0OE6 
8510 
8712 



:001CD4I 



:001CD4I 
:001EOCI 



2350 
2351 
2332 
2353 
2354 
2355 

2356 « 

2357 * 

2358 EOJ 



♦ 
URTPRT 



S001CD6I 
=001EDEI 



2359 

2360 

2561 

2362 

2563 

2364 

2365 

2366 

2367 

2368 

2469 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

23ao 

2381 

2382 

2383 

2384 

238S 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2396 

2399 

2400 

2401 

2402 

2403 



LDA 
BR 

EQU 
LHI 
B 



DC 



R3.URTEND 
R3 



R1,X»E9» 

erra 
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WRITE PROTECT ERROR 



C»EOJ»,x«0D0A» 



* 
* 
* 
* 

* 

* L D A D 

* 

* 
* 
* 

* 
* 

* 



THIS ROUTINE WILL LOAD THE OUTDEV DEVICE- ADDRESSES IN THE 
REGISTERS. THE ROUTINE WILL ABORT Ip A DEVICE RESPONDS WITH 
"FALSE SYNC." OR A DEVICE IS "DU". IT ALSO LOAD THE DEVICE 
INDICATOR. IF A DISC TRACK DENSITY AND HAXCYL ARE SET. 

input: R3 = RETURN ADDRESS 

output: RA = DEVICE ADDRESS 
RB = SELCH ADDRESS 
RC = CONTROLLER ADDRESS 
Rl = DEVICE INDICATOR 



* 
* 
* 

* 
* 



LOOAD 



LODl 



LOOlA 



L0D2 



LOOS 



LH 

BNZS 

LHI 

8 

SSR 

CLHI 

BNES 

LHI 

8 

T«I 

BZS 

LHI 

B 

LH 

BZS 

OC 

SSR 

CLHI 

BNES 

LHI 

a 

LH 
BZS 



RA,0UTDFV+2 

LOOl 

R0,C«E4« 

ERROR 

RA.Rl 

RltX*04« 

LODIA 

Rl,X»£6f 

ERRA 

Rl.l 

L002 

RliX'EE' 

crra 

R6.0UT0EV+4 

L0D3 

RBtSToP 

RB<R3l 

R1»5C»04» 

L0D3 

R1.X'E6« 

ERRB 

RCfOUTOFU4-6 

L0D4 



GET THE DEVICE ADDRESS 

ZERO 7 

YES 

NO 

FALSE SYNC ? 

YES 

DU 7 

NO 

YES 

SET THE SELCH ADDRESS 

STOP THE SCiCH 

FALSE SYNC ? 

NO 
YES 

SET THE CONTROLLER AOoRESS 



WDS23720 
MDS23730 
IH0S23740 
H0G237S0 
HOS23760 
HOG23770 
MDG23780 
1"IOS23790 
nOG238Q0 

HDG23ai0 

HOG23820 

»OS23630 

HOS23840 

HOS23850 

nD623660 

HOG23870 

HOG23880 

HOS23890 

MOS23900 

HDS23910 

110823920 

K10G23930 

nOG23940 

HOS239513 

KD823960 

MOS23970 

R06239&0 

MDS23990 

m624000 

qDG240lt) 

HDG24020 

iilDS240SO 

nDS24040 

MOfi240S0 

H0G2406« 

HOS2<»070 

M06240aO 

«OG24090 

MDG24100 

nD6241l0 

HD624120 

H0624130 

HOG241.40 

HOS241S0 

nDS24l60 

MOG24X70 

«)D624130 

HOS24190 

nDe24200 

HDG24210 

NDG24220 

i8lOS2423Q 

HDS24240 

MDe24250 
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0017CEI 
0017DOI 
0017D<tI 
0017061 
OOiTDftl 
0017DE:I 
0017E2I 
0017EifI 

""if CO* 

0017ECI 
0017F0I 
0017F'H 
0017FSI 



00l7FflI 
0017FE:I 

ooieooi 
ooiaom 

0018081 
00190AI 
00180EI 
0018101 

ooiaiti 

0018181 
00181CI 

ooisiei 

0018221 
0018261 
00182AI 

ooiaaci 

0018301 
0018321 
0018361 
0018381 
00183CI 
OOiflifOI 

ooie^ifi 



90C1 

C51a 0004 
2135 

ceio 00E6 

4300 84FE rOOlCOCI 
4810 d6F6 rOOlEOSI 
2135 
C800 4534 

4810 89D4 =0021C4I 
4010 8A1A =00220eI 
4S10 a6E0 sOOlEOSI 
0303 



4SA0 
2135 
C800 
4300 
9DA1 
C510 
2135 
C810 
4300 
C3lO 
2335 

caio 
4300 

48B0 
233B 
DEBO 
9DB1 
C510 
2135 
C810 
4300 
48CC 
2339 



e6E4 

4535 
8408 

0004 

O0E7 
84BC 
0001 

OOEF 
84AE 
86BA 



=001EE2I 
sOOlClOl 

=001CD4I 



:001CD4I 
:001EE4I 



807C =0018ACI 
0004 



O0E7 
8496 
S6A2 



:001CD8I 
:001EE6I 



2404 
2405 
2406 
2f07 
2408 
2409 
2H10 
2'Hl 

2414 
2415 
Ztlfi 
2«H7 
2'H8 
2419 
2H20 
2'»21 
2422 
2423 
2424 
2H25 
2426 
2427 
2428 
2*f29 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2H36 
2439 
244 
2441 
2442 
2443 
2444 
2't45 
2446 
2447 
2448 
2449 
2450 
2'*51 
2452 
2453 
2454 
2t55 
2456 
2457 
2't5a 



LoO"* 



L0D5 



SSR 


RCfRX 


CLHI 


R1.X'04» 


BNES 


LCD** 


LHI 


R1.X»E6» 


B 


ERRC 


LH 


Rl.DUTDFv 


BNZS 


LOOS 


LHI 


R0.C'E4» 


a 


CDanD 


a 




LH 


Rl.TRKDFN 


STH 


Rl.CUTRKDEN 


LH 


Ri.OUTDCV 


8R 


R3 



FALSE SYNC 7 

NO 

YES 

GET THE DEVICE INDICATOR 

YES 

rqann 

SET OUTPUT TRKDEN 
STORE IT 



RETURN 

* 



« * 

* L I D A D * 

* * 

* THIS ROUTINE MILL LOAD THE INDEV OEVICE ADDRESSES IN THE « 

* RESISTERS, THE ROUTINE WILL ABORT IF A DEVICE RESPONDS WITH * 

* "FALSE SYNC" OR A oEVICE IS "DU". IT ALSO LOADS THE DEVICE * 

* INDICATOR. IF A DISC TRACK DENSITY AND RAXCYL ARE SET. * 

* ♦ 

* input: R3 - RrTURN ADDRESS « 
» * 

* output: RA = DEVICE ADDRESS « 

* RB = SELCH ADDRESS * 

* RC s CONTROLLER ADDRESS * 

* Rl = DEVICE INDICATOR * 

* * 

LIOAD 



LlDl 



LlDlA 



LID2 



LI03 



LH 

BNZS 

LHI 

8 

SSR 

CLHl 

BNES 

LHI 

B 

THI 

BZS 

LHI 

B 

LH 

BZS 

OC 

SSR 

CLHI 

BNES 

LHI 

B 

LH 

BZS 



RA.INDEV+2 

LIDl 

RO.C'ES* 

ERROR 

RAtRl 

R1.X'04» 

HDIA 

R1.X'E7» 

ERRA 

Rl«l 

LID2 

Rl.X'EF' 

ERRA 

Ra«INDEu-*'4 

LI03 

RB.STOP 

RB.Rl 

Rl,X»04« 

LI03 

R1.X'E7» 

ERRB 

RCiINDEV+6 

LIO*» 



GET The DEVICE ADDRESS 

ZERO 7 

YES 

NO 

FALSE SYNC 7 

YES 

OU ? 

NO 

YES 

SET THE SELCH ADDRESS 

STOP THE SELCH 

FALSE SYNC 7 

NO 

YES 

SET THE CONTROLLER ADDRESS 



H05242&0 

HDS24270 

MDG24280 

nOS24290 

nD62'»300 

n06243l0 

MDG2H320 

nC624330 

M0s243a0 

nOe2<»350 

HDG2't360 

RDS24370 

I«1DS2'»380 

l«!DS2'»390 

HD62'ttOO 

1«I0S24410 

l«lOS2'*'»20 

MOS2'**30 

MDe24440 

«DS2<»'»50 

MD624460 

HDS24470 

•40624480 

HDS2*'»90 

MDSZHaOO 

ttDS24SlO 

HOS2'»520 

nDS24S30 

MDS24540 

HD62*»S50 

nOS24&60 

HDG24570 

HD62t56G 

MOS24590 

HDG24600 

HD524610 

rtD624620 

MDG2t630 

MDG24640 

HDG24650 

HDS24660 

HDS24670 

NOG246S0 

HDS24690 

HOS2*700 

MDe2't7lO 

MDG24720 

HDG^*^730 

HDS24740 

BDG24750 

HDS2'»760 

NOS2*770 

MDS24780 

MDS2'»790 

nDG246oo 
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0018'>6I 90C1 

0016481 CSlO 0004 

OOlStCl 2135 

00161+El C810 Q0E7 

001S52I 4300 8486 rOOlCDCl 

0018561 4810 8686 rOOlEEUl 

00185AI 2135 

00185CI C8C0 4535 

0013601 4300 63ftC =001ClOl 

00x8641 4610 695E =0021C6I 

0018681 4010 S9A2 =00220EI 

D0136CI 4810 8670 rOOlEEOI 

0018701 0303 



0018721 


085D 




0018741 


086E 




0018761 


0B65 




0018781 


C56Q 


OOFF 


♦00187CI 


218A 




♦00187EI 


2339 




0018801 


085D 




♦001882I 


CAOO 


oioo 


0018861 


0665 




»001868l 


CA60 


OOFF 


00188CI 


2440 




0Q188EI 


0303 




0018901 


244F 




0018921 


C560 


0000 


»00l896l 


2334 




0018981 


065D 




00189AI 


086£ 




00189CI 


0303 





2459 

2460 

2461 

2'*62 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2'»72 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2460 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2<t90 

2H91 

2492 

2*93 

2494 

2495 

2496 

2497 

2498 

2499 

2S00 

2501 

2502 

2503 

25Q4 

2505 

2506 

2507 

2Soe 

2509 
2510 
2511 
2512 
2513 



LID4 



LID5 



SSR 


RCRl 


CLHI 


R1.X'04» 


8NES 


LID4 


LHI 


R1»X'E7» 


3 


ERRC 


LH 


RI.INDEV 


8NZS 


LI05 


LHI 


R0.C«E5« 


fl 


ERROR 


Lri 


Rl.TRKDFN+2 


STH 


R1,CUTRK0EN 


UH 


R1,INDEV 


9R 


R3 
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FAtSE SYNC ? 

NO 

YES 

GET THE DEVICE INDICATOR 
YES 

GET INPUT TRKDEN 
STORE IT 

RETURN 



S T B K A 

THIS ROUTINE WILL RETURN THE PROPER VALUES TO SET UP THE 
SELCH OR TO SET UP THE WRITE BLOCK. 



* 
* 
* 

* 
« 
* 

« 
STBKAD 



INPUT = HD = 
RE 
R3 

OUTPUT = Rt 



R5 
ft6 
RD 
RE 



LOW ADDRESS TO flE COPIED 
s HIGH ADDRESS TO BE COPIED 
= RETURN ADDRESS 
= MORE DATA BLOCKS REQUIRED TO FINISH 

THE ENTIRE TRANSFER 
r F INDICATES THAT THIS IS THE LAST 

BLOCK OF THE TRANSFER 
s LOW ADDRESS FOR THIS BLOCK 
= HIGH ADDRESS FoR THIS BLOCK 
= ENTRY VALUE ♦ X'lOO' 
= ENTRY VALUE (NEVER ALTERED) 



NQHORE 



LOAR 

LDAR 

SAR 

CLHI 

BL 

BE 

LOAR 

AAI 

LOAR 

AAI 

LIS 

Bft 

LIS 
CLHI 

BE 
LOAR 
LDAR 
BR 



RStRO 

R6«R£ 

R6.S5 

R6,X»FF» 

NOHORE 

NOKORE 

R5.RD 

RD»X'100» 

R6»R5 

R6tX«FF« 

R4t0 

R3 

R4.15 

R6«X'00« 

NOHOl 

R5tRD 

R&iRE 

R3 



COPY THE LOW POINTER 
COPY THE HIGH POINTER 
SUBTRACT (HIGH • LOW) 



DIFFERENCE =07 



HDGZtaiO 
HD624S20 
HOG24a30 
HDG24840 
HOG24850 
MDS24860 
MDG2487Q 
HDG24880 
HOG24890 
MDG24900 
MDG24910 
HDG2'*920 
HOG 249 30 
MDG2494-0 
MDG24950 
!«IOS24960 
MOS24970 
KDS24980 
HDS24990 
POG25U00 
MDG250iO 
MOS2SO20 
MOS25030 
HOG2504D 
MDS25050 
MOS25060 
flDG25070 
nD62S080 
WOG25090 

noe25ioo 

HDG25H0 
HOG25120 
HOS25130 
nDS25l40 
HDG25150 
nDG2S160 
HDG2S170 
140325180 
nOG25l90 
nD62520Q 
«DS252iO 
nO62S220 
mOG2S23<I 
MO&25240 
HO625250 
MOG25260 
HOS25270 
r^De25230 
MDG25290 
MDS25S00 
MDS25310 
HDG25320 
FIS0S25330 
HOS255*0 
MDS25550 
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25m 


* 






00189EI 


0850 




2515 


NOHOl 


LDAR 


R5,RD 


0018A0I 


0865 




2516 




LDAR 


R6,R5 


0018A2I 


26&1 




2517 
2518 


* 


AIS 


R6<1 


OOlSAtl 


0303 




2519 
2520 
2521 
2S22 
2523 


* 
* 
« 

* 


BR 


R3 


0018A6I 


2313 




252<* 


FWFH 


DC 


X'2313« 




0000 


ieA7I 


2525 
2526 


BKFM 


EQU 


FWFH+1 


001SA8I 


2250 




2527 


HTWRT 


DC 


X'2250« 




0000 


18A9I 


2528 
2529 


ESWRT 


Eau 


HTWRT+l 


0018AAI 


C050 




2530 


DISABL 


DC 


X'C030« 




0000 


ISABI 


2531 
2532 


WF« 


EQU 


DISABt+1 


OOiSACi 


0811 




2533 


STOP 


DC 


X'0811« 




0000 


16A0I 


2534 
2535 


BkSP 
* 


EQU 


STOP+1 


0018AEI 


10C2 




2536 


syRT 


DC 


X'10C2« 




0000 


ISAFI 


2537 

2538 


SEEK 

* 


EQU 


swrt*i 


0018BOI 


C8C1 




2539 


RESET 


DC 


X«C6C1' 




0000 


18B1I 


251*0 
2541 


RESTOR 

* 


EQU 


RESET+1 


001BB2I 


0302 




2542 


RCHECK 


DC 


X»0302» 




0000 


18B3I 


2543 
2544 


OURIT 


EQU 


RCHECK+1 


OOlftBtl 


2038 




2545 


CLEAR 


DC 


X'203a' 




0000 


18B5I 


2546 
2547 


REIWIND 

« 


EQU 


CLEAR+1 


0018B&I 


0121 




2548 


dreao 


DC 


X«012l' 




0000 


18871 


2549 
2550 


mtreao 

* 


EQU 


DREAD+1 


0018B8I 


3070 




2551 


sreao 


DC 


X'3070« 




OOUO 


18B9I 


2552 
2553 


ESi'EAD 


EQU 


SREAD*1 


0018BAI 


(♦800 




2554 
2555 
2556 


EsTOP 

* 
« 


DC 


X»4600» 




0000 


18BCI 


2557 


CRLF 


EQU 


« 


0018BCI 


E620 


809E =00195EI 


2558 




LDAI 


R2,AST+9 


0018C0I 


4130 


B002 sooiec&i 


2559 




8AL 


R3, PRINT 


ooiacn 


030E 




2560 
2561 
2562 
2563 
2564 


* 
* 
* 
« 


BR 


RE 








2565 


* P 


R I H 


T 








2566 


« 












2567 


♦THIS SUBROUTINE WILL PRINT 








2568 


« 
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ADD 1 SO THAT A HIN. OF 2 BYTES 
WILL BE TRANSFERED 



FORWARD FH / BACKSPACE FH 



DISABLE / WFH 



STOP/BKSP 



SELCH GO / SEEK 



READ CHECK / DISC WRITE 



CLEAR / REWIND 



DISC READ / HT READ 



ESELCH STOP 



LOAD ADDRESS 
00 CR/LF 
RETURN 



TO THE TTY. CRTi OR CAROUSEL ON PASLA 



HDe25360 
HDS25370 
!^DS253B0 
HD62S390 
HDG25'^00 
l«(DS25«H0 
MDG25't20 
HDG25't30 

■4neo54li.n 

nDS25*50 

NDSZStSO 

fiDS25^70 

KDG254aO 

HDG25*90 

«i0e23500 

flOG255io 

KDG25520 

KD625530 

HOS25540 

MDS25550 

MD62556Q 

nDS25570 

MDS255ao 

HD625S90 

HDS2a&00 

NOG25610 

nDS25620 

MD&25630 

MDS25640 

MDG25650 

nOG25660 

HDS25670 

MDG25680 

HDG25690 

nOG25700 

MDG25710 

MOG25720 

MDG25730 

WDG25740 

MOG25750 

MDG25760 

MDG25770 

MOG25780 

HGG25790 

HDG25fi00 

MDG25810 

MDG25e20 

BDG25830 

nDG25S40 

nOS25850 

M0625860 

HDG25870 

nDG25880 

HDG25890 

MDG25900 
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2569 


* INPUT 


TO THE ROUTINE 










2570 


* 














2571 


* 


Rl = 


NUMBER OF CHARACTERS TO BE OUTPUT 








2572 


* 


R2 = 


THE ADORFSS OF THE 


OUTPUT BUFFER 








2573 


* 


R3 = 


THE RETURN ADDRESS 










2574 


* 














2575 


* 










OOOQ 18C6I 




2576 


PRINT 


ECU 


. • 




0018C6I 


0342 0000 




2577 


PR1NT2 


LB 


R4,0(R2) 


GET A MESSAGE BYTE 


ooiacAi 


4iF0 8U16 


=0018E4I 


2S7S 




SAL 


LINK»OUTCHR 


OUTPUT IT 


caiscEi 


274D 




2579 




SIS 


R4,13 


CR 7 


♦ 001.8D0I 


2333 




2580 




BZ 


PRINT3 


HSG OVER 


0018D2I 


2621 




2581 




AIS 


R2,l 




OOlSDM-l 


2207 




2582 




BS 


PRINT2 


LOOP FOR NEXT CHAR 


0018D&I 


244fl 




2583 


PRINTS 


LIS 


ft4,10 


LF 


001.8D8I 


41F0 6008 


=0018E4I 


2564 




BAL 


LINK, OUTCHR 


LF 


OQiaoci 


2541 




2585 




LCS 


R4,l 


DEL 


O018OEI 


41F0 8002 


=0018E4I 


25e6 


PRINT3B 


BAL 


LINKfOUTCHR 


TERMINAL CHARACTER 


0Q18E2I 


0303 




2567 


PRNTEX 


BR 


R3 


RETURN 








2588 


* TO OUTPUT / 


\ charactfr to the 


LIST DEVICE 








2589 


* 










0000 l8e41 




2590 


OUTCHR 


EQU 


* 




OOlSEtl 


2400 




2591 




LIS 


R0,0 


CLEAR 


0018E6I 


4000 807A 


=0019641 


2592 




STH 


ROtPAUSr 




OOISEAI 


4800 E738 


r000026I 


2593 




LH 


RO.CONRAOR 


GET READ ADDRESS 


0018EEI 


4810 E73A 


r00002CI 


2594 




LH 


R1,C0N2MD 


GET 2N0 CMD 


0018F2I 


2332 




2595 




BZS 


OTC.O 


SKIP IF ZERO 


ooiapm 


9E01 




2596 




OCR 


ROfRl 


ISSUE 2N0 cno 




0000 16F6I 




2597 


OTCO 


EQU 


» 




0018F6I 


4800 E72C 


=0000261 


2598 




LH 


RO.CONRAOR 


GET READ ADDRESS 


0018FAI 


D310 E72C 


S00002AI 


2599 




LB 


R1,C0NR0 


SET READ COHHAND 


OOlSFEl 


9E01 




2600 




OCR 


RO.Rl 


ISSUE READ CMO 


0019001 


9001 




2601 




SSR 


RO.Rl 


SENSE STATUS 


♦001902I 


2366 




2602 




BFC 


8,0TC.2 


BRANCH IF CHAR. IS TO B 


0019041 


4610 aosc 


=0019641 


2605 


otc.i 


LH 


Rl.PAUSF . 


PAUSED NOW 7 


0019081 


2039 




2604 




BNZS 


otc.o 


YES, LOOP 


00190AI 


4300 8020 


S00192EI 


2605 




B 


0UTCHR2 


NO, GO OUTPUT CHARACTER 


00190EI 


9B01 




2606 


0TC.2 


ROR 


ROvRl 


SET CHARACTER 


0019101 


C410 007F 




26Q7 




NHI 


R1,X'7F» 




0019141 


CBIO O012 




2608 




SHI 


R1,X'12« 


DC2 7 


♦0019181 


2134 




2609 




BN2 


0TC.3 




00191AI 


4010 6046 


=0019641 


2610 




STH 


RltPAUSr 




00191EI 


2308 




2611 




BS 


0UTCHR2 




0019201 


2712 




2612 


0TC.3 


Sis 


Rl«2 


DC4 7 


0019221 


4230 FFOO 


=0018F6I 


2613 




BNZ 


OTC.O 


NO. GO WAIT FOR DC2 


0019261 


40FO eOSA 


=0019641 


Zbin 




STH 


LINK»PAUSE 




00192A1 


4300 FFCe 


S0018F6I 


2615 
2616 


« 


6 


OTC.O 




Q0192EI 


4010 8032 


=0019541 


2617 


0UTCHR2 


STH 


Rl.PAUSF 


RESET FLAS 


0019321 


4800 E6F2 


=0000231 


2618 




LH 


RO.CONWaDR 


GET WRITE ADDRESS 


0019361 


D310 E6F1 


=0000281 


2619 




LB 


Rl.CONHRT 


SET WRITE COHNANO 


00193AI 


9E0i 




ZbZO 




OCR 


RO.Rl 


ISSUE WRITE CHO 


00193CI 


90^1 




2621 


0TC.4 


SSR 


RO.Rl 


WAIT FOR NOT BUSY 


•00193EI 


211A 




2622 




BTC 


l.OUTO 


BRANCH IF OFF-LINE 


0019401 


C510 OOOC 




2623 




CLHI 


Rl,12 


PASLA OFFLINE 7 



l«IDS259lO 
H0G25920 
n062593Q 
MDS25940 
MDG2S950 
HDG2596C 
MQS25970 
MDG25960 
fDG2599Q 
nDG26000 
HDS26010 
nOG26O20 
HOG26030 
MDS26040 
MDG26050 
nOG26Q6Q 
MDG26Q70 
HaG26Q90 
MDG26090 
nOG26100 
nDS26110 
nDG26120 
HOS26130 
M0S26140 
HO626150 
HOS26160 
KO626170 
H0G261fi0 
«DS26X90 
n0626200 
n06262lQ 
M0626220 
M0e26230 
nD626240 
HDS2625C 
nD626260 
f1O626270 
M0e262SQ 
MD826290 
M0626300 
nDG263lo 
nOG2632o 
HOG26350 
H0S265»0 
|i(DS263S0 
nO626360 
riD626370 

r^-uS26*S0 

MOS26390 
H0626*00 
NOS26410 
I«IOG26*»20 
«O€26*30 
MOG26440 
HDS26450 
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•ooigt"*! 


2337 




0019461 


C510 


0006 


*0019tAl 


2037 




Oai94Cl 


9A04 






0000 


194EI 


0019'tEl 


9D01 




*001950I 


2081 






0000 


19521 




0000 


19521 


0019521 


030F 




00l95tl 


4044 


4752 3034 


00195AI 


OOOA 




00195CI 


2A20 




00195EI 


OOOA 




0019601 


3F20 




0019621 


OOOA 




0019641 


0000 





2624 BE OUTO 

2625 THI R1.8 

2626 BNZ OTCt 

2627 WOR R0,R4 

2628 0TC.5 E8U • 

2629 SSR ROtRl 

2630 BTC 8tOTC,5 

2631 OUTO Eau * 

2632 OUTl EHU * 

2633 BR LINK 

2634 *--— — ,— — — .— 

2635 * 

2636 * 

2637 TITLE DC C»H06R04» .X'ODOAt 

2638 AST DC C'«'.X'DOA» 

2639 OUST DC C«?'»X»OOA» 
DC X'O' 
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BRANCH! YES. 
BUST 7 

WAIT FOR NOT BUSY. 
OUTPUT DATA BYTE 



WAIT FOR BUSY TO DROP 
RETURN 



0019661 C510 0032 

*00196Al 2385 

U0196CI D3Ul 858" sOOlEFUl 

0019701 2611 

0019721 0303 

0000 19741 

0019741 41E0 FF44 =0016BCI 

00i978l e620 FFE4 =00l9b0I 

00197CI 4300 E718 =0000981 



2640 PAUSE 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 * 

2656 GeTCHR 
2657 
2658 
2659 
2660 
2661 QUEST 
2662 

2663 

2664 

2665 * 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 



* 6 E T C H R 

* GETS A CHARACTER FROM INBUF AND RETURNS IT IN RO 

« * 

* * 

* INPUT! R3 = RFTURN ADDRESS * 

* Rl = POINTER TO THE DESIRED CHARACTER * 
» * 

* OUTPUT! RO = CHARACTER DESIRED * 

* * 

* * 

MAX ? 
YES 

GET THE CHAR. 
BUMP POINTER 
RETURN 



CLHI Rl,50 

BNL QUEST 

LB RO.lNBUF(Rl) 

AIS R1<1 

BR R3 

EOU * 

BAL RE.CRLF 

LDAI R2,eUST 

B REDPTX 



DO CR/LF 



* 

* N H T N 

* 

* WAIT FOR NO MOTION 
* 

* RO = RETURN ADDRESS 

* Rl a SCRATCH REGISTER 



KD626'^60 
J10G26470 
M0G26460 
HDe26t90 
MDS26500 
HDG26510 
n0626520 
HD6S6530 

f<lOG26550 
HDG26S60 
N0G2657Q 
H0626d60 
nDe26S90 

n0G26600 

H0626610 

HDG26620 

«1D626630 

nOG26640 

nD6266S0 

nOG26660 

HOS26670 

HDe26680 

HD626690 

«OG26700 

MD626710 

HOG26720 

WOS26730 

MOG26740 

HQG26750 

IKDG26760 - 

HDG26770 

H0e26780 

MDG26790 

HDG26&00 

MSG26810 

M5G26820 

MOG26830 

HOG26840 

HDG26850 

HDG26860 

KIOG26870 

nDG26880 

nOG26690 

HD626900 

nOG269l0 

HDG26920 

flDS26930 

H0G2694Q 

MOe269So 

HO&26960 

HDG26970 



ma GENERATOR 06-177F02R0't«91A13 



PASE 50 15J13S57 ll/13/8i 



0019801 
0019821 
Q01986I 
0Q198AI 

ooiseci 



,0 0198El 
0019901 
0019941 
0019981 
00199AI 
00199EI 
OOiqAOI 

0019A2I 
0019A6I 
0019AAI 

00i9AEl 



0019B2I 
Q019B6I 



90A1 

<t210 a2E8 =001C6EI 

C310 OOIO 

2235 

03UQ 

0000 196EI 

90A1 

4210 82DA =001C6EI 

C310 0020 

2135 

C310 0010 

2236 

0300 

iHEO rF16 =0018BCI 

E620 800a =0019B2I 

4130 PF18 =0018C6I 

43U0 FO"E =00l6CUl 



424F 5620 
ODOA 



0000 19B8I 
*0019B8l 2511 
QO^^og^I ttOlO S52E sOOlEECI 
0019BEI «^OlO 852C =0D1EEEI 
0019C2I 0303 



2676 
2677 
2676 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
26B9 
2650 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 

2702 
2703 
2704 
2705 
2706 
2707 
2706 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2732 
2723 
2724 
2725 
2726 
a727 
2728 
2729 



RA = THE DEVICE ADDRESS 



* 
* 

* 

NOMOTN SSR RAtRl SENSE THE STATUS 



* 

bkfhnh 



PROV 



BOV 

« 
* 
* 



SSR RAtRl 

BTC ItDEVDU 

THI Rl.X'lO* 

BZS NOHOTN 

BR ao 

Eau ♦ 

SSR RA.Rl 

BTC l.DEVOU 

THI Rl,X«20i 

BN2S PBOV 

THI Rl,X»l0' 

BZS BKFHNM 

BR RO 

BAl RE.CRlF 

LOAI R2,B0V 

BAL R3, PRINT 

B PEOO 



DC C'BOV'.X'OOOA' 



NOflOTlON SET 
NO - WAIT 
YES - RETURm 



ET BIT SET 7 

NO MOTION t 
NO 



DO CRLF 
PRINT "BOV" 



,•*»»««»***«*«»**»**•»*«****♦«**«»«*«*«***«********•♦*******•»**•**•** 



L K I N 

THIS ROUTINE MILL tOCK THE INPUT DEVICE IN0ICATIN6 AN ERROR, 
OR EOV. WHEN A DEVICE IS LOCKED COPY CANNOT BE USED HiTH 
THAT DEVICE 

INPUT ! R3 = RETURN ADDRESS 

OUTPUT! THE LOCK UORO IS SET (DEVICE LOCKED) 



* 

« 

* 

« 
* 

* 

* 
* 



*«*«»•**«****••«***•*«»«**«»*«««*****•**•**♦**»*****«*****♦******•*••** 

LOKIN EQU « 

LHI R1,X«FFFF' 

STH RlfPSHIPN 

STH Rl,PSHIPN+2 

BR R3 
* 

* 



« L K U T 

« 



HQ6269B0 
HOG26990 
HDG27000 
MOS27010 
'10627020 
HDG27U30 
i«tD527040 
MO627050 
«OG27060 
WDS27070 
flDS27060 
HDS27090 
HDG27100 

«OS27110 
nOG27120 
MOG27130 
HOS27140 
MOG27150 
M0S27160 
WIDG27170 
MDG271S0 
H0G27190 
HOS27200 
HOG27210 
!*lDS27220 
IHDG27230 

nOG27240 

nDS27250 
nDe27260 
MOG27270 
nOG27280 
HOS27290 
MOS27300 
MOG27310 
MOG27320 
nDG2733o 
nOG27340 
MOG27350 
HDG27360 
1>10G27370 
HDG27380 
MDS27390 
HDG27400 
HDG27*1Q 
MOG27H20 
HDG27430 
MOG27440 
HDG27*f50 
H1S^7«^60 
tlDG27t70 
MOG27«^e0 
«DGa7*90 
MOS275Q0 
«OGa75l0 
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OOOO l9C<*I 
♦0019C4I 2511 
0019C6I tOlO 851E =001EE8I 
0019CAI tjOlO 851C sOOlEEAI 
0019CEI 0303 



0019D0I C810 3050 

OOigO"*! "tOlO 8590 =00iF68I 

0019081 0210 858E =001F6AI 

0019DCI 0303 



0019DEI 
0019E2I 

*00l9EtI 
0019E6I 
0019EAI 
0019EEI 

♦0019FOI 



tSlO 882C =U022UEI 

2718 

233E 

D8A0 8818 



DEAD 8020 

90C1 

2221 



:002202I 
lOOlaOEI 



0019F2I D8A0 aeOA =0022001 



2730 * THIS ROUTINE WlU LOCK THE OUTPUT DEVICE , INOICATINs AN ERROR. * «OS27320 

2731 « OR EOV. MHEN A DEVICE IS LOCKED COPY CANNOT BE USED WITH THAT * M0S2753O 

2732 * DEVICE. * nDS275*o 

2733 « * MDS27550 
273f * input: R3 = RETURN ADDRESS * MDG27560 

2735 * * «De27570 

2736 * OUTPUTS THE LOCK IS SET (DEVICE LOCKED) * MDS27580 

2737 * * MDS27590 

2738 * * HDS27600 

2739 *^^**m***#**mm*m*nf*****»***^*m****m************************'************ nD6276lO 
27t0 LOKOUT E9U * !i«DG27620 
27<H LHI R1,X»FFFF» SET THE LOCKOUT INDICATOR BDG2763q 
27(*2 STH R1,P6H0PN HDS276fO 
27(»3 STH R1.PGH0PN*2 HDG27650 
27(m 8R R3 MDG27660 
27l»5 « * MDe27670 
27i»6 ««♦***•♦***»»«*««««««***♦««*«*«*«****«»««*****«»*•*«*«***«•*«*««*«**»** HO627680 
27it7 « : • HD627690 
2748 « Z S E Q * nDe27700 
27H9 « * HOS27710 

2750 * THIS ROUTINE MILL ?ERO (ASCII) THE SESUENCE NUMBER FTELO. * MDS27720 

2751 » THIS INDICATES AN tLLEGAL NUH8ER, * MDG27730 

2752 * * HDG277«»0 
c*5o » aWrui* no — nt i JRim Huuncaa * i-iuw... • wv 
275H * * H0627760 

2755 * OUTPUT; SESUENCE NUHBER =0 « NDG27770 

2756 * * HOG27780 

2757 * * HOG27790 

2758 »*•«*♦***«•*»*«*«***««*«*««**««**♦****««***«♦******«*••*»•*******«*«*** MDG27800 

2759 * * MOG27810 

2760 ZSEtJ LHI Rl,X'3O30' ZERO THE SEQUENCE MOG2T820 

2761 STH Rl.SEONAH NUnBER SO A CREATE HDG27830 

2762 STB Rl.SEeNaH+2 CANNOT BE DONE HDG27840 

2763 BR R3 HDG27850 
276'* *♦*»****«****«*****«*♦«*«****«•«**««***««*«**«****«***«*«*»«*««»******* MOG27860 

2765 * HDG27870 

2766 * M D F T MOS27880 

2767 * «OG27890 

2768 *«*********•**»**♦*«**♦*♦***♦*•«*♦*«♦********»********♦*•**«******«*«** »'De27900 

2769 ****4i*«***«**««*«*«***** *«***«**«*«*****«*«*****«**«« «**«»«******««**«* HriG279lO 

2770 * WRITE THE DATA TO THE FILE MOG27920 

2771 * H0G27930 

2772 * RA = FILE ADDRESS MOG279ito 

2773 * R3 = RETURN ADDRESS MOG27950 

2774 * Rl = USED AS SCRATCH HD627970 

2775 * flOG27980 

2776 ***«♦«**♦«**»**«*♦*♦*»***«»**»»«««**#**«»***««**«««**#«««***•*«****•♦«♦ 5*0627990 

2777 HDFT LH RI.CUTRKDEN HDG28U00 

2778 SIS Rl.8 SEE IF 10 MB ROf 

2779 BZ WDFT3 SKIP IF YES ROf 

2780 WH RAtHEAO HEAD NUHBER TO DRIVE R04 

2781 OC RA.SETHPAD SET HEAD REGISTER RO«f 

2762 WOFTl SSR RC.RX WAIT FOR CONTROLLER IDLE ROt 

2763 BFC a.WDFTl * ROi* 
276i» WH RA.CYL SEND CYLINDER NUMBER TO DRIVE R0i+ 
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0019F6I 


DEAD 


8015 


sOOlAOFI 


2785 




OC 


RA, SETCYL SET CYLINDER REGISTER R04 




0019FAI 


9DC1 






2786 


WnFT2 


SSR 


RCiRl * R04 




•0019FCI 


2221 






2787 




BFC 


2.ttDFT2 WAIT FOR CONTROLLER IOLE R04 




0019FEI 


0303 






2788 




BR 


R3 RETURN TO CALL R04 




OOlAOOl 


OAAO 


87FC 


=0022001 


27S9 


WDFT3 


WO 


RAfCYL SEnO cylinder NUMBER TO DRIVE R04 




OOlAOm 


OAAO 


87Fg 


=0022011 


2790 




WO 


RA,CYL+1 LS SyTE of CYLINDER R04 




ootAoai 


9DC1 






2791 


H0FT4 


SSR 


RC.Rl WAIT FOR CONTROLLER IOLE R04 




*001AOAI 


2221 






2792 




BFC 


2,UDFT4 * R04 




OOIAQCI 


0303 






2793 




BR 


R3 RETURN TO CALL S04 




OOlAOEl 


20 






2794 


SETHEAD 


OB 


X'20» * R04 




OOlAOFl 


10 






2795 
2796 


SETCYL 

* 


DB 


X'lO' * R04 


MOG28260 










2797 


****»****«**«****«**»**:«**«»*«**««•***«*«*«»**«**«*******«************* 


«DS2S2ro 










2798 


* 






yiDS26280 










2799 


* F R S 


R U 




HDG28290 










2800 


* 






HOG28300 










2801 


*«*•**«»»**♦*«*«♦*•♦*«*««*»«*«*»*««**♦♦«*»«**«*****«*♦********«**•••*«* 


MD628310 










2802 


* 






HOG28320 










2803 


♦ FILE READY TO SEEK READ OR WRITE ? 


nDG28330 










2804 


* 






H0G2834Q 










2805 


« 


R3 


= RETURN ADDRESS 


HDG28350 










2806 


* 






nOG2S3eO 










2607 


«««*»***««**«**«*«*«•***««*«**«*««*«*««***«***«*******« 4>*«**«*«****«*** 


«0G2e57Q 










2808 


* 






H0G28380 


OOlAlOl 


9DC1 






2809 


frsrw 


SSR 


RC.Rl 


MD628390 


oaiAiai 


2221 






2810 




BFBS 


2,1 WAIT FOR CONTROLLER IOLE 


nDG28*»00 


OOlAltl 


9DA1 






2811 




SSR 


RA,R1 


WDG28410 


0014161 


4210 


8254 


=001C6EI 


2812 




BTC 


l.OEVDU 


H062e't20 


*001A1AI 


2173 






2813 




BTC 


7, FRSERR 


HDG2et30 


»001A1CI 


2086 






2814 




BTC 


8, FRSRW 


HDS2e'HtQ 


OQIAIEI 


0303 






2815 




BR 


R3 


KDG2e'»S0 


001A20I 


C310 


0030 




2816 


frserr 


THI 


R1.X'30» 


H0G28<^£0 


•001A2fI 


2135 






2817 




BNZ 


ILLADD 


«DG26'»70 


aG].&26l 


C610 


OOEe 




2818 




LHI 


ftl.X«Ea« 


MDS284BQ 


001A2AI 


4300 


82A6 


S001C04I 


2B19 
2880 
2821 


« 
* 


8 


ERRA 


MDG28'»90 
HD628S00 
ND628510 


001A2EI 


C810 


OOEA 




2822 


ILLAOD 


LHI 


Rl.X'EA' 


MD628520 


001A32I 


f3U0 


829E 


=001CD4I 


2823 
2624 
2825 
2826 


* 
* 
* 


B 


ERRA 


nO62e530 
WOS28540 

no62as5o 

MDG28560 










2827 


ti^*****itti**»m************t.m****************m************************f** 


KD6285tO 










2828 


« 






K0628560 










2629 


* R C H 


1 K 




HDG28590 










2830 


* 






HOG2e600 










2831 


ii^*i,ti**»m**if*it********************it************************************ 


HOS28&10 










2832 


* 






HuGSSSao 










2833 


* READ CHECK SUBROUTINE 


RDG28630 










2834 


* 






HOG28640 










2835 


* 


R3 


3 RETURN ADDRESS 


HDe28650 










2836 


* 


R8 


= SECTOR NUHBER 


HDG28660 










2837 


* 






BOS28670 


00la36l 


5030 


8774 


=0021841 


2838 


RCHK 


STA 


R3. ADORES SAVE RETURN aOORESS 


l«IDG286«0 


001A3AI 


4870 


8786 


20021C4I 


2839 




LH 


R7tTRKDrN 


HDS28690 
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001A3EI 

♦ooiatai 

OOlAttl 

ooiAtai 

OOiAtAl 
OOlAfEl 
001A50I 
OOlAStl 
00XA5aI 
*001A5aI 
OOiASAl 
001A5EI 
001A62I 
001A66I 
001A68I 
001A6AI 
001A6CI 
001A70I 

00iA7<»I 
001A78I 



001A7AI 
001A7CI 
00iA7eI 
001A821 
0G1A86I 



ooiAasi 

001A8AI 
001A3EI 
001A8E1 
001A92I 
00lA9m 
001A96I 
•001A9AI 
001A9EI 
001AA2I 



C570 
233c 
4130 
9AC8 
1*830 
113A 
1*870 
0637 

230A 
1+130 
itloO 
1*830 
1135 
0638 
9AC3 
DECO 
1*130 



0008 
FF96 
8761+ 
87AC 



FF82 
FF7C 
879C 



FE**2 
8006 



=0C190EI 
=0022021 
-0022001 



=001A10I 
=00i9DEI 
=0022021 



eO0i8B2I 
=001A7AI 



5830 873C =002181*1 
0303 



0000 1A7AI 

90C1 

2221 

t^lO 8772 =0021Fi*I 

DECO FE2A =0018801 

0303 



0000 lAe8I 

21*00 

i*OU0 877A =0022081 

E600 8012 =0OlAAi*I 

Q81B 

1*010 e77A =0022121 

1111 

CAIO 0000 

1*001 0000 

0302 



281*0 
88<*1 
2Si*2 
28(*3 
28<*i* 
2S^5 
281*6 
281*7 

nOi. n 

281*9 
2850 
2851 
2852 
2853 
2851* 
2855 
2856 
2857 
2858 
2659 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2866 
2869 
2870 
2671 
2872 
2873 
287"* 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2832 
2883 
2881* 
2885 
2686 
2887 
2888 
2889 
2890 
2691 
2892 
2893 
2891* 



RCHKl 



RCHK3 
RCHKa 



CLHI R7.8 

BE RCHKl 

SAL R3,WDFT 

«DR RC,R8 

LH R3.HEAD 

SULS R3.10 

LH RT.CYL 

OAR R3fR7 

■ iLJO ag* OIL 

B RCHK3 

BAL R35FRSRU 

BAL R3t"DFT 

LH R3,HEAD 

SLLS R3,5 

OAR R3tR8 

WDR RC.R3 

OC RCtRCHECK 

BAL R3,SETC0N 



PASE 55 15J13J57 11/13/81 

SEE IF 10 m DRIVE ROi* 

BRANCH IF TES RQi* 

else send head s cylinder info 
senQ sector to controller 



HERSE CYLINDER AND HEaD 



lda 

3R 



R3.ADDRrS 
R3 



WAIT FOR DISK READY 
SET UP DRIVE 



HERGE CYLINDER AND HEflO INFO 

SEND TO CONTROLLER 

ISSUE READ CHECK COHMAND 

WAIT FOR IDLE, THEN RESET CONTROLLER 

SET ADDRESS 
RETURN 



« S E T C N 

* 

SETCON EfiU • 

SSR RC.Rl 

BFBS 2,SETC0M WAIT FOR IDLE 

STH Rl.CONSTA SAVE STATUS 

OC RC. RESET RESET PENDING INT. 

BR R3 

♦ 

« 

* S E T S E L 
SETSEL 



SETCOH 



EQU 


* 


LIS 


R0,0 


STH 


RO.SELERR 


IFNZ 


ADC-2 


LA 


RO.SELINT 


LDAR 


RltRB 


STH 


RlflNTADO 


SLLS 


Rl,l 


AAI 


Rl.X'DO* 


STH 


R0.0«R1) 


BR 


R2 



GET THE INTERRUPT ADDRESS 
GET THE SELCH ADDRESS 
SAVE INTERRUPT ADDRESS 
MULTIPLY BY 2 
ADD X»DO» 



ELSE 



HDS28700 
HO628710 
MDS28720 

!«IDG287i*0 

(•IOG28750 
HDS28760 

HOG28770 
Moe9a7a0 

MOS28790 

noeassoo 

RQ62831Q 

H0S2882a 

nD626a3o 

MDS288t*0 

HDS28850 

MOG28860 

HDS28870 

nOG28S80 

HDS28890 

HD626900 

nD6289lO 

(110628920 

HDG28930 

nuS2S9i*o 

HDG26950 

HDG28960 

HDG28970 

NDG28980 

MOG28990 

WDG29000 

HDG290i0 

HDG29020 

HID829030 

MDG290i*C 

MOG29050 

MDG29060 

HDG29070 

HDE2908Q 

MDG29090 

MDG29100 

Hl)G29110 

M0629l2a 

nDG29l30 

MDG29140 

HDG29150 

NDG29160 

HOG29170 

nDG29l80 

MDG29190 

nDG29200 

HOS29210 

HOG29220 

HD629230 

HOG292i*o 
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2695 


* 








M0S29250 










2696 




LHI 


RO.SELINT 




HDG29260 










2897 




LDAR 


Rl.RB 




HDG2927Q 










2898 


SETCOH 


STH 


Rl.INTAOD 


SAVE INT ADDRESS 


nDG29280 










2899 




US 


Rl.O 




HDG29290 










29Q0 




STH 


R1,X'44» 




HOG2930Q 










2901 




STH 


S0,X«46« 




MDG29310 










2902 




BR 


^2 




HDG29320 










2903 


* 








HDG29330 










290H 




ENOC 






MDS29540 










2905 


* 








MDG29350 










29Q6 


* 








nOS29360 




0000 


lAAtl 




2907 
2908 


SirLINT 


EOU 


* 




MDG29370 
HOG29380 


001AA4I 








2909 
2910 


* 


IFNZ 


ADC-2 




HOG29390 
MOG29H00 


OOlAAtl 


48H0 


876A 


=0022121 


2911 




LH 


R4,INTA0D 




m0G29'*10 


001AA8I 


05t2 






2912 




CLAR 


R4.R2 




HOG29'»20 


OOIAAAI 


t23o 


8022 


=001AD0I 


2913 




BNE 


SELINI 




HOG29430 


OOlAAEI 


DEBO 


PE08 


cOOieBAl 


2911+ 




OC 


RB. ESTOP 


GIVE THE ESELCH STOP COMMAND 


WOG29460 




OOOQ 


1AB2I 




2915 


SELSTl 


EQU 


* 




MOG29490 


Q01AB2I 


2t60 






2916 




LIS 


R6,0 




H0G2950Q 


OOlABtl 


9B'+6 






2917 




ROR 


R4,R6 


3 - READ THE HOST SIG. BYTE 


HDS29S30 


0Q1AB6I 


3t66 






2916 




EXHR 


R6,R6 


LEFT 16 R04 


OOlABSl 


21+70 






2919 


SELIN2 


LIS 


R7,0 




nD629560 


OOlABAl 


99'*7 






2920 




RHR 


R4.R7 


READ A HALFWORD 


nOS29570 


OOIABCI 


06^7 






2921 




OAR 


R6,R7 


R6 s FINAL ADDRESS 


«Oe29S80 


OOlABEl 


5670 


86F6 


=0021881 


2922 




LDA 


R7,FAD0 


SET THE FINAL ADDRESS 


NDG29590 


001AC2I 


0576 






2923 




CLAR 


R7,R6 


COMPARE THE ADDRESSES 


KDG296Q0 


♦OOlACtl 


2X37 






292l^ 




BNE 


SELIN9 




nD6296io 


001AC6I 


2400 






2925 




LIS 


RO.O 


REnOvE THE WAIT BIT 


l«IDG29620 


OO1AC8I 


4OOO 


S73C 


=0022081 


2926 




STH 


ho.selerr 


SET NO SELCH ERROR 


MDS29630 


♦OOIACCI 


C800 


30F0 




2927 




LI 


R0,T'O00030FO« 




M0829640 


OOlADOI 


1800 






2928 
2929 


SPLINl 


LPSWR 


RO 


RETURN TO WHERE INTERRUPTED 


HO529650 
MDS29660 


001A02I 


2*0F 






2930 


SELIN9 


LIS 


RO.IS 


SET SELCH 


NOS29670 


ooiao'H 


4000 


8730 


=0022081 


2931 




STH 


RO.SELERR 


ERROR 


HDS29680 


*ooiAoai 


C800 


30F0 




2932 




LI 


RO,Y«000030FO« 




KDS29690 


OOlADCl 


1600 






2933 
293'* 
2935 
2936 
2937 
2938 


* 
* 


LPSWR 

ELSE 

AIR 
CLHR 


RO 

RF.Rl 
RF.RB 


RETURN TO WHERE INTERRUPTED 


MOG29700 
BDG29710 
HO629720 
ffOS29730 
RDS29740 
MDS29750 










2939 




BNES 


SELIN5 


NO 


WDS29760 










2940 




DC 


RB.STOP 


YES 


MDG29770 










29m 




RHR 


RB«R9 


READ End ADDRESS 


I»IDS29780 










2942 




CLHR 


R6,R9 


COMPARE AOnBESSES ? 


MDG29790 










29*3 




BNE 


SELIN4 


NO 


nO629800 










2944 




LIS 


R9.0 


SET NO 


HDG29310 










2945 




STH 


R9«SELERR 


SELCH ERROR 


MOG29820 










2946 




LHI 


R9tX'30Q0» 


SET NEW PSW 


MDS29e50 










2947 




STH 


R9.X'40» 




MDS29840 










2946 


SeL,IN3 


LPSW 


X'40« 


RETURN TO WHERE INTERRUPTED 


MDG 29850 










2949 


* 








MDG29a60 
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2950 


SFUIN4 LIS 


R9,15 










2951 


STH 


R9,SELEBR 










2952 


LIS 


R9iO 










2953 


STH 


R9.X'40» 










2954 


LPSH 


X»40» 










2955 


* 












2956 


ENOC 






0000 


lADEI 




2957 


LCORE EQU 


• 










O^Ba 


TCftt7 


An^^9 










2959 


*» 1"%. 

» 












2960 


♦ INITIALIZE FOR THE 32 SE 










2961 


« 




OOIADEI 


C200 


8066 


=0018681 


2962 


LPSH 


INIT32 


•001AE2I 


G800 


OOFO 




2963 


G032 LI 


R0,Y*00O0OOF0« 


001AE6I 


5000 


0020 




2964 


ST 


R0,X«20» 


OOlAEAI 


5000 


0024 




2965 


ST 


R0iX'24t 


OOIAEEI 


5000 


0026 




2966 


ST 


R0«X*2e< 


001AF2I 


5000 


002C 




2967 


ST 


R0.X«2C' 


D01AF6I 


5000 


0030 




2968 


ST 


ROtX'30* 


OOlAFAl 


E6IO 


flOBO 


sOOlBAEl 


2969 


LA 


RliILLIST 


OOlAFEl 


50I0 


0054 




2970 


ST 


RltX»3iH 


001B02I 


5000 


0036 




2971 


ST 


R0,X»38» 


OOIBO6I 


E610 


80AC 


=0018861 


2972 


LA 


Rl^MCHNAL 


OOlBOAl 


5010 


003C 




2973 


ST 


Rl,X'3Ct 


00180E:I 


5000 


0040 




2974 


ST 


RO,X«40t 


001B12I 


5000 


0044 




2975 


ST 


R0tX»44t 


001B16I 


5000 


0048 




2976 


ST 


R0fX'46t 


OOlBlAl 


E610 


3066 


S001BA6I 


2977 


LA 


Rl.ARFLT 


OOIBIEI 


5010 


004C 




2978 


ST 


Rl.X'4C« 


001B221 


5000 


0080 




2979 


ST 


RO.X'SOt 


001B26I 


E610 


S70E 


=0022381 


2980 


LA 


Rl.OLDPSW 


00ie2Al 


CflO 


ffoo 




2961 


NHI 


Rl.X'FFOO' 


001B2EI 


CAIO 


oioo 




2962 


AHI 


RI.X'IOO* 


001B32I 


•(010 


0084 




2983 


STH 


RltX'84» 


001B36I 


2618 






2984 


AIS 


R1.6 


D01R38I 


1*010 


0086 




2965 


STH 


RlfX'86f 


001B3CI 


ifOOO 


0088 




2986 


STH 


R0,X'88» 


OOlB'tOI 


E610 


8068 


=001BFCI 


2987 


LA 


Ri.iovau 


OOlB'ttl 


5010 


008C 




2988 


ST 


RI.X'SC 


001BH8I 


5000 


0090 




2989 


ST 


R0,X'90i 


OOlBtCl 


E610 


80B2 


=001C02I 


2990 


LA 


RI.HACINT 


001B50I 


5010 


0094 




2991 


ST 


R1.X'94» 


OOlBStl 


5000 


0098 




2992 


ST 


R0.X«98' 


001B58I 


<t00o 


OOCC 




2993 


STH 


RO,X«CC« 


001B5CI 


E610 


8090 


sOOlBFOI 


2994 


LA 


Rl.BNDYFRR 


001R60I 


4010 


OOCE 




2995 


STH 


RltX'CE' 


♦ OOlBSiH 


2306 






2996 
2997 


8 

* 


intcqh 


0018681 








2998 


ALISN 


8 


001B63I 


0000 






2999 


1NIT32 DC 


X'0000»,x'30FO 


OOlB&Al 


30FO 












00186CI 


0000 


1AE2I 




3000 
3001 
3002 
3003 


DC 

ELSE 
LPSW 
6OI6 XHR 


A(€032) 

INIT16 
RO.RO 



SET SELCH 
ERROR 

ZERO THE PSU 

RETURN TO WHERE INTERRUPTED 



INITIALIZE 



HAKE 256 8TTE BOUNDARY 
BUMP TO NEXT BOUNDARY 

BUmP 



MD629870 
P«0S29e80 
HDe29690 
HD629900 
HDG29910 
H0629920 

HDS29930 
HD6299i(0 
Mnca99so 
n0829960 
H0529970 
SOS299S0 
HDS29990 

noesoooo 

HO630010 
nD83002Q 

flOS30030 
1MDS30040 
MDS300S0 
HDSSOOfeO 
HDG30070 
MO8300&0 
noe30090 
nD630100 
HDSSOliO 
iuOG30l20 
nO63013O 
H0630140 
«DS30150 
nOG30l60 
HOG30170 
MDG30180 
KDG30190 
nOG3020O 
H0530210 
MOG30220 
!«OS30230 
MOG30240 
«jG30250 
MOG30260 
MDG30270 
MDG30260 
HDG30290 
MOG30300 
MDG30310 
MOG30320 
HDG30330 
HDG30340 
HDG30350 
MOG30360 

HOG30370 
HD630380 
HDG30390 
WDe30'*00 
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3004 




STH 


R0«X»2Ct 










3005 




STH 


R0,X«34» 










3006 




STH 


R0.X'3C« 










3007 




STH 


R0»X'44« 










300S 




STH 


R0»X«4C« 










3009 




LHI 


RO1RE6SAV 










3010 




STH 


R0.X«22t 










3011 


« 














3012 




LHI 


RO.ARFLT 










3013 




STH 


R0,X'2E« 










3014 




LHI 


ftO.ILLiRT 










3015 




STH 


R0.X'36» 










3016 




LHI 


RO.HCHHAL 










3017 




STH 


RO.X'SE' 










3016 




LHI 


RO, INTER 










3019 




STH 


R0,X»46» 










30S0 




LHI 


RO.DIVFLT 










3021 




STH 


R0tX'4c« 










3022 




B 


BE61N 










3023 


INIT16 


DC 


X'3000<,Z(e016) 










3034 




ENDC 






001B70I 


itftSO 309^ : 


zooicoai 


3025 


InTCOH 


LH 


R3.SVCERR 




001B7M.I 


C810 009c 




3026 




LHI 


R1.X'9C' 




001R7al 


4Q31 0000 




3027 


X9C 


STH 


R3.0(R1J 




OniB7Cl 


2612 




3028 




AIS 


Rl<2 




001S7EI 


C51C ODBC 




3029 




CLHI 


RlfX'BC 




001B62I 


2035 




3030 




BNES 


X9C 




OOlBSm 


0700 




3031 




XAR 


RO<RO 




0018661 


4001 0000 




3032 


xbc 


STH 


R0<0(R1) 




OOlBBAl 


2612 




3033 




AIS 


Rl.2 




ooiBaci 


C510 OODO 




3034 




CLHI 


Rl,X»O0» 




00x6901 
001B92I 


2035 

C600 ICOEI 




3035 
3036 




BNES 
LHI 


XBC 

RO, INTER 


SET THE ADDRESS 


001B9feI 


4001 0000 




3037 


XCC 


STH 


RO,0(R1J 




00ia9Al 


2612 




3036 




AIS 


Rl«2 




001B9CI 


C5l0 0200 




3039 




CLHI 


R1,X'2D0» 




OOlBAOI 


2035 




3040 




BNES 


XCC 




Q01BA2I 


4300 EHA6 


=00004CI 


3041 
3042 
3043 


* 
« 


B 


BEGIN 




001BA6I 


CeOO 4630 




3044 


arflt 


LHI 


RO,C'FO» 


FLPT ARIT FAULT 


OOIRAAI 


4300 3062 


cOOlClOI 


3045 




B 


PSWE 




V V A U r^ F^ ^ 

OQIBAEI 


CSOO 4631 




3046 


illist 


LHI 


R0,C«F1' 


ILLEGAL INST. 


001BB2I 


4300 805A 


sOOlClOI 


3047 




a 


PSWE 




OOlBBfel 
O0IBB6I 
0016B8I 

-~- j^ — ^\ r^ ^" "? 


95AA 

5800 0040 
2336 
2113 




3046 
3049 
5050 
•5051 


MCHHAL 


IFNZ 
EPSR 

L 

B2S 


ADC -2 
RA.RA 
R0,X»40« 
MOT5200 


CAPTURE PSW 
SEE IF S320 
NO 


OOIBBEI 




3052 




BHS 


PWRDN 


POWER DOWN 


OOIBCOI 


C200 800C 


=0018001 


5053 


pmrup 


LPSW 


HCHPSM 




OOIBC*! 


C200 8020 


=001BE8I 


3054 


PWRON 


LPSM 


PFL 




ooiBcai 

*0018CAl 
*O0XBCCl 


oeAA 




3055 


NaT3200 


loar 


RA.RA 


SET CC 


211B 
2206 




3056 
3057 




BTC 
B 


I.PFAIL 
PWRUP 


POUER DOWN 
POWER RESTORE 








3058 




ELSE 







HDG30'*10 

HDS30H20 

MDG30430 

HDG30440 

HOG30t50 

HDG30460 

HOG30470 

MOS304eO 

l«0G30't90 

MDG30500 

MDG30510 

nOG30520 

HUG30530 

HOG30540 

MQG30550 

HOG305&0 

M0G5Q57Q 

MO630580 

WDG30590 

MDG3Q600 

MOG30610 

KOG30620 

H0630630 

KDG30640 

MDG30650 

(HOG30660 

KOGS0670 

l«iaG30660 

M0630690 

MOG307D0 

HOG30710 

r4D630720 

MDG30730 

|«|OG30740 

MDG30750 

HO630760 

HD630770 

KOG307aQ 

HDG30790 

HOS30&00 

H0G50810 

nO€30S20 

Mossoaso 

HOG30840 
I>IOG3Q850 
MOG30860 
«DG3087a 
«DS30S80 
MDG50690 
MDG30900 
HOG30910 
MOG30920 
MOG3Q930 
HOG30940 
MDG30950 
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3059 


MCHHAL 


BTC 


1, PFAIL 












3060 




LPSW 


HCHPSH 












3061 




ENDC 






OOIBDOI 








3062 




ALIGN 


8 






0000 


IBDOI 




3063 


MCHPSW 


E9U 


* 




OOIBDOI 








3064 




IFNZ 


ADC-2 




OOiBDOI 


0000 






3065 




OC 


X«0000»,X«50F0» 




001BD2I 


30F0 
















OOlBD'H 


0000 


1B06I 




3066 
3067 

3066 
3069 




DC 

ELSE 
DC 
ENDC 


A(HCHl) 
X»3000',Z(HCH1J 




001BD8I 


C600 


4632 




3070 


MCHl 


LHI 


R0.C'F2» 




OOIBDCI 


4300 


8030 ■■ 


eOOICIOI 


3071 




B 


pshe 




0016EOI 


C200 


8004 : 


=001BEal 


3072 


PFAIL 


LPSM 


PFL 




OOIBESI 








3073 




ALISN 


8 






0000 


1BE8I 




3074 


PFL 


EQU 


* 




001BE6I 








3075 




IFNZ 


ADC-2 




OOIBESI 


0000 






3076 




DC 


X»0000»,X»B0F0« 




OOlBEAl 


BOFO 
















OOlBECl 


0000 


IBEOI 




3077 
3076 
3079 
3060 




DC 

ELSE 
DC 
ENDC 


A{PFAIL) 
X'8000»,Z(PFAIL) 




OOlBFOI 


C600 


4636 




3081 


bnoyerr 


LHI 


R0.C»F8» 


BOUNDARY VIOLATION 


♦OOlRFm 


230E 






3082 




B 


PSHE 




001BF6I 


C600 


4633 




3083 


DIVFLT 


LHI 


R0fC'F3» 


DIVIDE FAULT 


*00l8FAl 


230B 






3084 




3 


PSUE 




OOIBFCI 


ceoo 


4635 




3085 


IOV8U 


LHI 


R0,C'F5' 


I/O aUEUE OVERFLOW 


*001COOI 


2306 






3086 




B 


PSWE 




O01C02I 


ceoo 


4636 




3087 


macint 


LHI 


R0,C'F6t 


HAc Interrupt 


*O0lC06l 


2305 






3088 




B 


PSME 




001C08I 


ceoo 


4637 




3089 


SVCERR 


LHI 


R0,C'F7» 


svc interrupt 


OOICOCI 


2302 






3090 




BS 


PSHE 






0000 


ICOEI 




3091 


INTER 


EQU 


* 




OOlCOEl 








3092 




IFNZ 


ADC-2 




ooicoei 


1800 






3O93 
3094 
3095 
3096 

3097 




■LPSWR 

ELSE 

AAI 

LPSU 

ENDC 


RO 

RFtSCRAp 
X»40' 


RETURN TO WHERE iNTERRUl 
return TO WHERE INTERRUI 




0000 


ICIOI 




3098 


PSHE 


ECU 


• 




OOICIOI 


1^000 


60AC : 


=ooiccoi 


3099 


ER«OR 


STH 


ROtERPTSS 




001C14I 


ceoo 


3030 




3100 




LHI 


R0,X'3O30' 




ooiciai 


•fOOO 


eOA2 : 


sOOlCBEI 


3101 




STH 


RO.ERPTDD 




ooicici 


iHEO 


FC9C : 


rOOlSBCI 


3102 




SAL 


RE.CRLF 


DO CR/LF 


001C20I 


E620 


8092 : 


=001CB6I 


3103 




LDAI 


R2iERPT 




O0lc2'»I 


4130 


FC9E : 


=0018C6I 


3104 




BAL 


R3, PRINT 




001C28I 


lf8'*0 


85DE ■ 


=00220AI 


3105 


SSS 


LH 


R4,E0JFLG 


SHOULD EOJ BE PRINTED 7 


*001C2Cl 


213A 






3106 




3NZ 


YESEOJ 


YES 


001C2EI 


C200 


8006 : 


S001C38I 


3107 




LPSH 


NOEOJ 


NO 


001C38I 








3106 




ALIGN 


6 






0000 


1C38I 




3109 


NOEOJ 


EQU 


« 




001C38I 








3110 




IFNZ 


AOC-2 




001C38I 


0000 






3111 




DC 


X»0000»,X'30F0» 





|i!0630960 
MDS30970 
f?DG30980 
MDG30990 

noesiooo 
noGSioio 

i>IDG3l020 

nDG9l030 
HOGS1040 
HDGSIOSO 
nDG3l060 
HDG31070 
HO631080 
flDG31090 
HDGSllOO 
MDG31110 
nOGSllZO 
H0631130 

HOG31140 
HDG31150 
HDG31160 
MQgS^llTQ 
HD631180 
MDG31190 
n0G312Q0 
HDG31210 
nOs3l220 
M0G31230 
HDG31240 
HOG31250 
M0S31260 
|i«DG31270 
MOG31280 
MDS31290 
HD331300 
MnG313l0 
W0G31320 
»<DG31330 
MDG31340 
H0G31550 
1^0631360 
HDS31370 
HDG31380 
MOG31390 
HD631400 

Moesi'tio 

MDG31420 
HDS31430 
nOG31440 
nQG31450 
nDG31460 
HDG31'*70 
H06314S0 
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001C3AI 


30F0 














001C3CI 


oooo 


009CI 




3112 
3113 
3114 
3115 




DC 

ELSE 
DC 
ENDC 


A(RE0TTY» 
X'3000«.Z(REDTTY) 




0000 


1C40I 




3116 


teseoj 


EQU 


* 


OOlCtOI 


C200 


8004 


=ooic4ai 


3117 




LPSW 


ERRPSH 


ooictai 








3116 




ALIGN 


8 




0000 


1C48I 




3119 


erkpsw 


EQU 


« 


ooictai 








3120 




iFf^Z 


AOC-2 


ooictsi 


aoQo 






3121 




DC 


X'OOOO'.X'SOFO* 


OOlC'tAl 


30F0 














001C4CI 


uooo 


JC50I 




3122 
3123 

3124 
3125 
3126 


* 


DC 

ELSE 
OC 
ENOC 


A(PJABT) 
X»3000«,Z(PJABT1 


OOiCSOl 


<tlE0 


FC68 


=0018BCI 


3187 


PjABT 


BAL 


REtCRLF 00 CR/LF 


ooicsti 


E620 


8008 


=001C60I 


3126 




LOAI 


R2,JABT 


001C58I 


4130 


FC6A 


=0016C6I 


3129 




BAL 


R3, PRINT 


ooicscr 


4300 


E43C 


=0000901 


3130 
3131 


* 


B 


REOTTY 


OQ1C60I 


4A4F 


4220 


4142 4F52 


3132 


jabt 


OC 


C'jOB ABORTED'.X'OOOA* 


001C68I 


5445 


4420 












001C6CI 


ODOA 






3133 


« 








0000 


1C6EI 




3134 


dewdu 


EQU 


« 


001C6EI 


45A0 


8268 


=001EDAI 


3135 




CLH 


RA,0UTDEV+2 IS IT OUTDEV ADDRESS DU 7 


OOlC-721 


2135 






3136 




BNES 


IDEVOU NO 


ooic7m 


C810 


OOEE 




3137 




LHI 


Rl.X'EE' YES 


001C78I 


4300 


8056 


S001CD4I 


3138 




B 


ERRA 


Q01C7CI 


C810 


OOEF 




3139 


loEVDU 


LHI 


R1,X'EF« INOEV ADDRESS 


001C80I 


4300 


8050 


S001C04I 


3140 
3141 


* 


a 


ERRA 


001C84I 


C8lO 


OOEO 




3142 


OlRFUL 


LHI 


Rl.X'ED' DIRECTORY FULL 


001C88I 


4300 


8048 


sa01CO4I 


3143 
3144 


* 


B 


ERRA 










3145 


* I S 


H X C 













3146 


* 














3147 


* THIS 


ROUTINE WILL CHECK THE VALUE IN RO TO BE SURE IT iS 










3148 


* VALID HEX 


CHARACTER, IF IT IS IT WILL 8E CONVERTED To HE 










3149 


* 














3150 


* 






ooiceci 


C500 


0030 




3151 


ISHXCO 


CLHI 


RO.X'SOt NUMBER 7 


001C90I 


4280 


FCEO 


=0019741 


3152 




BL 


QUEST NO 


0010941 


C500 


003A 




3153 




CLHI 


R0,X'3A» HAYBE - NUMBER ? 


001C98I 


218A 






5154 




BLS 


ISNUH YES 


00iC9AX 


C500 


0041 




3155 




CLHI 


P.QsX'itlt 


001C9EI 


4260 


FCD2 


=0019741 


3156 




BL 


QUEST 


001Cft2I 


C500 


0047 




3157 




CLHI 


R0,X'47> A - F ? 


001CA6I 


2166 






3158 




BLS 


ISAF 


OOiCASl 


4300 


FCC8 


=0019741 


3159 




B 


QUEST 


OOICACI 


C400 


DOOF 




3160 


ISNUM 


NHI 


R0,X'0f» HAKE A HEX NUMBER 


ooiceoi 


030S 






3161 




8R 


R3 


001CB2I 


2609 






3162 


ISAF 


AIS 


R0,9 



HDS31490 
n0631500 
HOG31510 
nOG3l520 
HOG31530 
K063154D 
MOG31550 
nO&3l560 
HDGS1570 
MOG31380 

HDG31590 
MO631600 
MOG31610 
MDG31620 
HOS31630 
MDG31640 
NDG31650 
nDG3l660 
MDG31670 
HDG31660 
HDG31690 



HDSSITOO 
HDG31710 
MDG31720 
«DG3l730 
flDG31740 
MDG31750 
MOS31760 
«OG3i770 
HDG31780 
MDG31790 
l>lDe31800 
HOG31810 
M0e31620 
MQS31S30 
M0631840 
H06318SO 
M0631660 
M0631S70 
fi0S3i6fl0 
M0S3ie90 
HDG31900 
MOG31910 
MDG31920 
HDG51930 
MDG31940 
M0S31950 
HO&31960 

MOG31970 
nDG3l980 
M0S31990 
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OOICB'*! 


2201* 






3163 
3l6f 
3165 
3166 
3167 
3168 
3169 
317Q 


* 
« 

* 

* 

* 

* 


BS 


ISNUH 




001CB6I 


HSbS 


52i»F 


5220 2020 


3171 


erpt 


DC 


C ERROR • 




OOICBEI 


HHHH 






3172 


erptod 


DC 


C»DD» 




OOlCCOI 


5353 






3173 


erptss 


DC 


C»SS» 




001CC2I 


ODOa 






317'* 




DC 


X'OOA* 




OOICCH 


3031 


3233 


3<t35 3637 


3175 


AsCi 


DC 


C'0123ij.56789A8CDEFt 




OOlCCCl 


3839 


muz 


iSfit f5t6 












OOICO^I 


oeoA 






3176 


ERRA 


LDAR 


RO.RA 




001CD6I 


230i» 






3177 




BS 


ERR 




001C08I 


080B 






3176 


ERRB 


LOAR 


ROiRB 




OOlCOAl 


2302 






3179 




BS 


ERR 




OOICDCI 


060C 






3180 


ERRC 


LDAR 


RO,RC 




OOICDEI 


1108 






3181 


ERR 


SLLS 


RO.S 




OOlCEOl 


0601 






3182 




OAR 


RO.Rl 




001CE2I 


2tl3 






3183 




LIS 


Rlt3 




OOICE'H 


242F 






3184 

3ias 


ERRl 

* 


LIS 


R2.X«F» 




001CE6I 


0'*20 






3186 




NAR 


R2,R0 




001CE8I 


D332 


FFDft 


sOOlCC«H 


3187 




LB 


R3,ASCI(R2) 




OOICECI 


0231 


FFCE 


sOOlCBEI 


3188 




STB 


R3.ERPT0D(R1) 




OOlCFOl 


1004 






3189 




SRLS 


R0,«» 




001CF2I 


2711 






3190 




SIS 


Rl.l 




OOlCFtl 


2218 






3191 




BNHS 


ERRl 




001CF6I 


"HEO 


FBC2 


=0016BCI 


3192 




BAL 


RE.CRLF 


00 CR/LF 


OOiCFAl 


E620 


FFB6 


=001CB6I 


3193 




LOAI 


R2.ERPT 




OOICFEI 


4130 


FBC* 


=0018C6I 


3194 




BAL 


R3. PRINT 




UO10O2I 


1300 


FF22 


rooicaai 


3195 
3196 


* 


B 


SSS 





noe32ooo 

HD632010 
HOS32020 
MOS32030 
HOG320i>0 
nD6320S0 
HO632060 
HDG32070 
MDS32080 
HDG32090 
MDS32100 
H0832110 
MD632120 

n0632l30 
HD632140 
HDS321S0 
H0e32l60 

MOS32170 
HOS32180 
HDG32190 
HOe32200 
HOG32210 

MOG32230 
H0e32240 
MOS322S0 
nDS32260 
HDS52270 
(HDG32280 
MD632290 
l«D632300 
(ii|DG323iO 
HDG32320 
MDG32330 
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OOOO 


oooa 


3198 


RIO 


EOU 


10 




0000 


Qooa 


3199 


Rll 


EQU 


11 




0000 


OOOE 


3200 


Rlt 


EQU 


14 




0000 


OOOF 


3201 
3202 


R15 


EQU 
NOSQZ 


15 


0Q1D06I 


0310 


0078 


320"+ 


MT800T 


LS 


R1.X<78« 


OOlDOAl 


ztzo 




3205 




LIS 


R2«0 


OOlDOCl 


Q330 


007O 


3206 




LB 


R3.X«7D» 


OOIOIOI 


9423 




3207 




EXBR 


R2.R3 


0010121 


EC20 


0008 


3208 
3209 


* 


SRL 


R2,8 


0010161 


9019 




3210 


htbooti 


SSR 


R1,R9 


0010181 


919C 




3211 
3212 


♦ 


SLHLS 


R9,12 


OOIOIAI 


2262 




3213 




BNCS 


HTBOOTI 


OOIOICI 


C850 


OlOO 


32lit 




LHI 


ftS.X'lOO* 


0010201 


2<t6l 




3215 




LIS 


R6,l 


0010221 


C870 


026F 


3216 




LHI 


R7»HTL0a0E' 


001D26I 


caoo 


0030 


3217 




LHI 


R0.X'30« 


00102AI 


2'>4e 




3218 




LIS 


R4,8 


00102CI 


9E2<t 




3219 




OCR 


R2,R4 


00102EI 


9A39 




3220 
3221 


* 


WOR 


R3,R9 


0010301 


9825 




3222 




WHR 


R2,R5 


0010321 


9A39 




3223 




WDR 


R3.R9 


00103'tl 


9827 




322H 




WHR 


R2,R7 


001D36I 


DClO 


0079 


3225 




DC 


R1.X'79« 


00103AI 


9E20 




3226 




OCR 


R2,R0 


001D3CI 


2l'*5 




3227 




BOS 


HTB00T2 


001D3EI 


9029 




3228 




SSR 


R2,R9 


OOlOfOl 


2081 




3229 




BTBS 


8.1 


0010t2l 


9E2<* 




3230 




OCR 


R2.R4 


ooiotfi 


0305 




3231 




BR 


R5 


001Di»6l 


9D19 




3232 


HTB00T2 


SSR 


R1.R9 


ooio<iai 


2061 




3233 




BTBS 


8,1 


0010<»AI 


0815 


0000 


3234 




RO 


RltO(R5) 


00101EI 


C150 


0OCO 


3235 




BXLE 


R5,«TB00T2 


001D52I 


t300 


0100 


3236 




B 


X'lOO* 


001O56I 


0000 




3237 




OCX 


OOOO 


0010581 


0000 




3238 




OCX 


oooo 



GET TAPE DEVICE ADDRESS 
* 

PICK UP SELCH ADDRESS 
(R2)=»SS00» OR •OOOOSSOO* 
IP 16 BIT, <R2,R3)x»OOSS,0000» 
IF 32 BIT, {R2)=(R3)=.0OO000SS' 
STATUS CHECK 
NO HoTION BIT TO CARRY 
LS BYTE OF R9 = 00 
WAIT FOR NO-HOTION 
LOAD START ADDRESS 
8XLE INCREMENT 
■HTL0ADS+X»100» LOAD END ADDRESS 
SELCH READ COHHANO 
SElCH STOP COHMAND 
SELCH STOP 
HS BYTE OF 3 BYTE ADDRESS 



Rot 
RCH 
R04 
R04 
Ron 
R04 
R04 
ROa 
ROl* 
R04 
Ron 
Rott 
RDu 
R04 
ROf 
R04 
R04 
R3=SELCH ADDRESS IF 3? BIT HOST R04 
LS 2 BYTES OF START ADDRESS R04 
MS BYTE OF 3 BYTE EnO ADDRESS ROI 
US 2 BYTES OF ENO ADDRESS RQ4 
HAG TAPE WRITE R04 

SELCH SO R04 

FALSE SYNC = NO SELCH R04 

ELSE, WAIT FOR SElCH NOT BUSY R04 
LOOP ON BUSY R04 

SELCH STOP R04 

BRANCH, START CODE JUST LOADED R04 
HAS TAPE STATUS fi04 

LOOP ON BUSY R04 

READ A BYTE R04 

.HTBOOT+X«80« DECREMENT INDEX. LOOP RO4 
SO To LOAD START ADRS R04 

FILLER RO<t 

FILLER R0» 
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HAG TAPE BOOT LOADER 









32it0 


* 


THE FIRST PART OF ThC BOOT LOADER RESIDES IN HEWORy 


R0<* 








32itl 


* 


FROH LOCATION X'80' TO X'CF*. IT IS LOADED BY THE 


R0«* 








32it2 


* 


X«50« 


SEQUENCE, HHEN CONTROL IS 


TRANSFERRED TO IT, 


ROf 








32if3 


Hf 


THAT CODE READS IN THIS NEXT SECTION WHICH STARTS 


ROi* 








324if 


* 


AT ADDRESS X 


•100'. 




ROft 








32it6 


* 


ON INPUT* (ROissELCH READ COnnANO, X<30> 


RQ<* 








321*7 


« 




(R1)=HAS TAPE DEVICE ADDRESS 


RO* 








32(f8 


♦ 




CR2)=SEUH ADDRESS 




ao4 








3aiJ9 


* 




«R3»sO IF 16 BIT HOST 




R04 








3250 


* 




<R3)rSELCH ADDRESS IF 


32 BlT HOST 


R04 








3251 


* 




{R<f)=SELCH STOP COMHAND. X'08« 


Hon 








3252 


« 




(R&)sl 




R04 








3253 


• 










ROH 








3254 


* 










RO* 


001D5A1 


csto 


8000 


3255 


HTLOADS 


LHI 


Rl.X'SOOO' 


FOR TARSET CHECK 


RO* 


001D5E1 


OAll 




3256 






AAR 


Rl.Rl 


sOOOO OR FFFFOOOO 


RO* 


001D60I 


0631 




3257 






OAR 


R3,R1 


=0000 OR FFFFOOSS 


RO"* 


001D62I 


D310 


0078 


3258 






LB 


Rl.X«78' 


SET TAPE DEVICE ADDRESS 


ROi* 


001D66I 


9019 




3259 


WTLOAOSO 


5SR 


R1«R9 


MAS TAPE STATUS 


R0» 


001D68I 


C390 


0010 


3260 






THI 


R9,X'lOt 


TEST FOR NO HOTION 


R0«» 


ri rt * ny <■ T 


2233 




ao^ . 






o^-e 


KTLOADSu 


WAIT FOR IT 


DMb 


u uxuov >■- 




\^K.OX 






w — w 


iAyS?- 


001D6EI 


C8F0 


A023 


3262 






LHI 


R15.X'AD23' 


FF COHMANOS 


RO* 


0O1O72I 


C8E0 


C9C0 


3263 






LHI 


R14.X'C9C0' 


DISARM COMMANDS 


RC* 


0010761 


D390 


0079 


326H 






L8 


R9.X'79» 


6Et READ Command 


ROt 


00107AI 


C59Q 


OOAl 


3265 






CLHI 


R9,X'Ali 


800/1600 BPI? 


Rot 


DOIDTEI 


2333 




3266 






8ES 


HTLOADSl 


SKIP IF YES 


ROi* 


001D80I 


90F8 




3267 






SRHLS 


Ri5«a 


FF Command for 6250 


R0<* 


001D82I 


90E8 




326a 






SRHLS 


Rl<*<8 


DISARM COMMAND FOR 6250 


ROt 


OOlOStl 


9E1E 




3269 


RTUOADSl 


OCR 


Rl,Rl«t 


disarm 


ROt 


OC10S6I 


9E1F 




3270 






OCR 


R1,R15 


FORWARD FILE HARK 


R0<» 


001DS8I 


9019 




3271 


HTL0AD2 


SSR 


R1,R9 


* 


Rot 


001D8A1 


C390 


0010 


3272 






THI 


R9.X'10« 


NO MOTION? 


ROtt 


OOlnSEl 


2233 




3273 






BZS 


nTL0AD2 


NO. WAIT 


ROt 


001O90I 


0833 




327<t 






LDAR 


R3.R3 


CHECK HOST 


'?0'* 


001D92I 


2336 




3275 






BZS 


MTLOAOit 


SKIP IF 16 BIT HOST 


ROt 


001D9tI 


9E1F 




3276 






OCR 


R1.R15 


ELSE, ANOTHER FORWARD FILE 


Rot 


001D961 


9019 




3277 


MTL0AD3 


SSR 


R1.R9 


« 


ROU 


0010961 


C390 


0010 


3278 






THI 


R9.X'10« 


NO MOTION CHECK 


R04 


001D9CI 


2233 




3279 

32aO 
3281 
3262 
3283 
3281* 
3265 


• 
* 
* 
« 
* 
* 




BZS 


rtTLOADS 


• 

TAPE IS NOW IN POSITION AT THE 
BEGINNING OF THE 1ST OR 2N0 
PROGRAM, DEPENDING ON THE HOST. 
NEXT, READ IN THAT PROGRAM'S 
PROGRAM DEFINITION BLOCK <POB) 


ROt 

RDt 

Rot 

ROt 

Rots 

ROt 

ROt 


001D9EI 


C650 


0270 


3286 


MTLOAD'* 


LHI 


R5,B0OTeN-HTL0ADS+X 


•100' START ADDRESS 


ROt 


001OA2I 


C860 


02A3 


3287 






LHI 


R6 . BOOTFN-HTLO AOS+X 


•133' END ADDRESS 


ROt 


001OA6I 


9e2H 




3288 






OCR 


R2.R'* 


SELCh STOP 


ROt 


OOlOAdl 


2»90 




3269 






LIS 


R9,Q 


• 


ROt 


OOlOAAl 


9A39 




3290 






WDR 


R3.R9 


MS BYTE OF 5 BYTE START ADRS 


ROt 


OOIOACI 


9625 




3291 






WHR 


R2.R5 


LS 2 BYTES OF START AORS 


ROt 


OOIDAEI 


9A39 




3292 






WDR 


R3,R9 


MS BYTE OF 3 BYTE END aORS 


ROt 
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MftS TAPE BOOT LOADER 



OOlDBOl 


9626 




3293 




UHR 


R2.R6 


LS a BYTES OF END ADDRESS 


ROt 


0010821 


DElO 


0079 


329t 




OC 


R1.X«79» 


START TAPE 


R0<* 


0010661 


9E20 




3295 




OCR 


R2,R0 


SELCh GO 


RC* 


001DB8I 


2145 




3296 




BOS 


MTLOADS 


SKIP IF FALSE SYNC 


ROf* 


OOlOBAl 


9D29 




3297 




SSR 


R2.R9 


ELSE WAIT FOR SELCH 


ROt* 


001D8CI 


2081 




3295 




BTes 


8.1 


TO SO NON-BUSY 


R0«* 


OOIOBEI 


gesi* 




3299 




OCR 


«2,R'* 


THEN STOP THE SELCH 


RfH* 


OOIDCOI 


230A 




3300 




BS 


f1TL0AD6 


« 


Rn(* 


ooincai 


9D19 




3301 


HTL0AD5 


SSR 


R1,R9 


HAG TAPE STATUS 


R0<* 


ooiacti 


2081 




3302 




BTBS 


8.1 


WAIT FOR NON-BUST 


ROC 


0010C6I 


uei5 


0000 


3303 




RO 


R1.0(R5J 


READ 


ROU 


nomcfli 


2651 




3301+ 




AIS 


R5.1 


BUHP INDEX 


R0<* 


ooiocci 


0565 




3305 




CLAR 


R6,R5 


DONE? 


ROtt 


OOIOCEI 


2286 




3306 




BNtS 


MTL0A05 


NO, LOOP 


Rn4 


OOlDOOl 


9019 




3307 




SSR 


RliR9 


FINAL STATUS 


ROil 


00inD21 


2170 




330« 




BTFS 


7.0 


HANS ON ERROR 


R0«* 


OOlDOiH 


9D19 




3309 


HTL0A06 


SSK 


R1.R9 


TRANSFER COMPLETE 


RQ*» 


001DD6I 


C390 


0010 


3310 




THI 


R9,X'10» 


WAIT FOR NO MOTION 


RO"* 


ooiDoai 


2233 




3311 




BZS 


NTLOA06 


WAIT FOR NO MOTION 


RC* 


ooiooci 


D390 


0282 


3312 




L8 


R9.B00TrN-MTL0A0S+X 


'lOO'+ie * 


ROtt 


OOlDEOl 


D350 


0283 


33x3 




L6 


R5»e00TEN-HTL0ADS+X 


•100'+19 * 


ao4 


0Q1DE"+I 


9158 




3311* 




SLHLS 


R5»8 


POSITION BITS 16-23 


t?0<* 


001DE61 


0360 


0284 


3315 




LB 


R6,B00TFN-«TL0ADS+X 


MQ0'+20 • 


ROl* 


OOlOEAl 


0656 




3316 




OAR 


R5.R6 


<R9.R5)=PR0GRAH START ADDRESS 


ROi* 


OOlDECl 


0633 




3317 




LOAR 


R3,R3 


TEST HOST 


ROi* 


OOIDEEI 


2331* 




3318 




BZS 


I1TLOA06A 


SKIP IF 16 BIT 


R0«* 








3319 


« 


EXHR 


R7,R9 


<R7»«'00XX00OO« 


RO"* 


OOlOFOl 


3t79 




332 n 




OCX 


3"*79 


« 


RO"* 


001DF2I 


0675 




5321 




OAR 


R7,R5 


(R7>r»00XXYYZ2' 


ROU 


OOlDFfl 


2302 




3322 




BS 


«TL0AD6B 


« 


R0«* 


001DF6I 


0875 




3323 


HTL0AD6A 


ldar 


R7,R5 


SAVE START ADDRESS 


R0<* 


001DF8I 


0857 




332«f 


nTL0AD6B 


LOAR 


R5,R7 


(R5)=START ADDRESS 


R0«* 


OOIDFAI 


D3A0 


0285 


3395 




LB 


R10«BOOTEN-nTLOADS+X'100»+21 • 


R0«* 


OOIOFEI 


D360 


0286 


3326 




LB 


R6.B00TEN-HTL0A0S+X 


♦l00'+22 « 


ROtt 


001E02I 


9466 




3327 




EXSR 


R6,R6 


* 


R0«* 


OOlEOm 


0380 


0287 


3328 




LB 


Re . BOOTFN-nTLOADS+X 


'100'*25 * 


RQt* 


OOlCOdl 


0668 




3329 




OAR 


R6.R8 


<R10.R6»=LOAD END ADDRESS 


ROt 


OOlEOAl 


0833 




3330 




LDAR 


R3.R3 


TEST HOST 


RQi* 


OOlEOCl 


2333 




5331 




BZS 


HTLOA07 


SKIP IF 16 BIT 


Hon. 








3332 


* 


EXHR 


Rll.RlO 


<Rll»a*O0XX00OO' 


ROI* 


OOlEOEl 


3fBA 




3353 




OCX 


3<*BA 


* 


R04 


OOIEIOI 


066B 




3331* 




OAR 


R6,R11 


«R6>=»00XXYYZ2« 


R0<* 


001E12I 


0885 




3335 


nTL0AD7 


LDAR 


R8.R5 


START ADRS 


R0<* 


OOlEltl 


EC80 


0010 


3336 




SRL 


R8.16 


(Ra>=0000 OR OOOOOOXX 


ROI* 


ooiEiai 


cess 


OOFF 


3337 
3538 


* 


LHI 


R11.255(R5) 


START ADDRESS + 255 EQUALS 
END ADDRESS FOR THIS RECORD 


ROI* 
Rn<* 


OOIEICI 


056B 




3339 




CLAR 


R6.R11 


COMPARE TO END ADDRESS 


R0<* 


OOlElEl 


2382 




334" 




BMLS 


HTL0AD7A 


SKIP IF NOT LESS 


ROI* 


001E20I 


08B6 




331*1 




LDAR 


R11.R6 


IF YES, USE REAL END ADDRESS 


ROU 


001E22I 


9E2'* 




331*2 


HTL0A07A 


1 OCR 


R2,R'* 


SELCH STOP 


ROI* 


ooiEam 


9A38 




531*3 




HDR 


R3.R6 


MS BYTE OF ADDRESS 


RO"* 


001E26I 


9825 




33<*'* 




WHR 


R2.R5 


OUTPUT START AoRS 


Rnt* 


001E26I 


9A3A 




331*5 




WOR 


R3,R10 


• 


RQI* 
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001E2AI 


982B 




33IJ6 




WHR 


R2.R11 


OUTPUT END ADRS 


Rot 


001E2CI 


DEIO 


0079 


331*7 




OC 


Rl.X'79i 


HAG TAPE START 


RO* 


001E30I 


9E20 




331*8 




OCR 


R2.R0 


SELCH START 


ROl* 


001F32I 


2145 




33<t9 




BOS 


HTL0AD8 


SKIP IF FALSE SYNC 


R04 


ooiEsm 


9029 




3350 




SSR 


R2,R9 


t 


R04 


001E36I 


2081 




3351 




BTBS 


8,1 


UAIT ON SELCH BUSY 


R04 


OOlESal 


9E2it 




3352 




OCR 


R2.Rt 


SELCH STOP 


R04 


001E3AI 


2308 




3353 




BS 


MTL0A09 


♦ 


RO* 


001E3CI 


9019 




335"* 


MTL0A08 


SSR 


R1.R9 


MAS TAPE STATUS 


P04 


001E3EI 


2061 




3355 




BTBS 


8,1 


LOOP ON BUSY 


Rn* 


OOIEM-OI 


DB15 


0000 


3356 




RD 


R1.0<R5) 


READ BYTES 


R0» 


OOlE't'H 


2651 




3357 




AIS 


R5,l 


BUHP ADDRESS 


RO* 


OOlEffel 


05B5 




3358 




CLAR 


R11,R5 


DONE Check 


RO* 


001E<»8l 


2286 




3359 




BNtS 


HTL0A08 


LOOP ON RECORD 


RO* 


001E4AI 


O390 


0079 


336n 


HTL0AD9 


LB 


R9,X'79« 


SET READ COHMAND 


Ro* 


OOlEfEl 


C590 


OOAl 


3361 




CLHI 


R9.X«A1» 


600/1600 BPI? 


RO* 


001E52I 


2334 




3362 




BCS 


HTL0A09B 


SKIP IF YES 


RD* 


OOlEStl 


9019 




3363 


HTL0AD9A 


SSR 


R1,R9 


6250 STATUS 


RO* 


001E56I 


2120 




336t 




BTCS 


2,nTLOAnlO 


DONE IF EOF 


RO* 


001E5S1 


2305 




3365 




BS 


HTL0AD9C 


ELSE KEEP READING 


RO* 


001E5AI 


9D19 




3366 


HTL0AD9B 


SSR 


R1.R9 


* 


ROk 


001E5CI 


C390 


ooto 


3367 




THI 


R9,X«i*0» 


EOF? 


RO* 


OOICSQI 


215S 




«a^ a 




BNZS 


f.TLOftOlO 


CONE IP YES 


= 0* 




wwoo 




001E62I 


9095 




3369 


HTL0AD9C 


SRHLS 


R9,5 


NO HqTION CHECK 


Rn* 


001E641 


2280 




3370 




BNCS 


HTL0AD9 


WAIT FOR IT 


RO* 


001E66I 


C85B 


0001 


3371 




LHI 


R5,1<R11) 


NEXT START ADRS 


i?04l 


001E6AI 


0556 




3372 




CtAR 


R5,R6 


COMPARE TO END ADDRESS 


RO* 


001E6CI 


t260 


0188 


3373 




BL 


MTL0AD7-HTL0A0S+XI 


'100» LOOP 


RO* 


0O1F7OI 


0857 




3371* 
3375 


HTLOAOlO 
* 


LOAR 


R5,R7 


START ADDRESS 
(R6>=EN0 ADDRESS 


Rn* 

RO* 


001E72I 


2'*A0 




3376 




LIS 


RIO.O 


CHECKSUM ACCUMULATOR 


Rnu 


ooie:7ih 


D3B7 


0000 


3377 


HTLOAOll 


LB 


R11.0(R7) 


« 


^0* 


001E7ai 


07AB 




3378 




XAR 


R10,R11 


CALCULATE CHECKSUM 


RO* 


001E7AI 


2671 




3379 




AIS 


R7,l 


* 


Rn* 


001E7CI 


0567 




338n 




CLAR 


R6,R7 


* 


Ro* 


001F7EI 


2285 




3361 




BNLS 


NTLOAOll 


* 


RO* 


001E60I 


9019 




5382 


HTL0A012 


SSR 


R1,R9 


« 


RO* 


001E82I 


C390 


0010 


3363 




THI 


R9,X'10» 


NO MOTION CHECK 


RO* 


001E96I 


2233 




33B4 




B2S 


MTL0AD12 


* 


Rnu 


OOIESSI 


C870 


0038 


3365 




LHI 


R7.X«38» 


» 


RO* 


001E8CI 


O390 


0079 


3366 




LB 


R9,X'79» 


GET READ COHHANO 


RO^i 


001E90I 


C590 


OOAl 


3367 




CLHI 


R9.X'A1» 


600/1600 BPI? 


RO* 


001E9ifI 


2333 




3386 




BES 


MTLOADIS 


SKIP IF YES 


RO* 


001E96I 


C870 


OOEO 


3389 




LHI 


R7,X'E0f 


RW COWHAND FOR 6250 


RO* 


001E9AI 


9E17 




3390 


HT1.0A013 


OCR 


R1.R7 


REWIND THE TAPE 


RO* 


001E9CI 


9D19 




3391 


WTLOADl'* 


SSR 


R1.R9 


« 


ROn 


001F9EI 


C390 


0010 


3392 




THI 


R9,X»10» 


NO MOTION CHECK 


RO* 


001EA2I 


2233 




3393 




BZS 


HTLOAOm 


« 


RO* 


OOlEAHl 


0370 


0288 


339<* 




LB 


R7,B0OTFN-HTLOADS+X*100'+2i* • 


RO* 


001FA8I 


057A 




3395 




CLAR 


R7.R10 


CHECK CHECKSUM 


RO* 


OOlEAAl 


0335 




3396 




BER 


R5 


GO IF OK 


RO* 


OOlEACl 


ceio 


OOEE 


3397 




LHI 


R1,X»EE« 


* 


RO* 


OOIEBOI 


2'*A1 




3398 




LIS 


RlOil 


« 


RO* 
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MAG TAPE BOOT LOaDER 



001EB2I 


C8B0 


ooto 


OOlEBfel 


9EAB 




001EB8I 


9AA1 




001EB4I 


2tE0 




OOlEBCl 


9AAE 




OOIEBEI 


9AAE 




OOIFTCOI 


gAAE! 




0D1EC2I 


C6B0 


0080 


001EC6I 


9EAB 




OOIFCSI 


2200 






OQOO 


1EC9I 




0000 


lECAI 



3399 




LHI 


R11.X'40' 


3H00 




OCR 


RlO.Rll 


3401 




WDR 


RlO.Rl 


Si+O? 




LIS 


R14»0 


3403 




WOR 


RlO»Rl4 


3404 




HDR 


R10«R14 


34n5 




WOR 


R10.R14 


3406 




LHI 


Rll.X'80' 


3407 




OCR 


RlOiRll 


3408 




8S 


• 


3409 


MTLOADE 


EQU 


*-l 


3410 


eoOTEN 


ECU 


* 


3411 




SOUEZ 





DISPLAY IN INCREMENTAL NODE 



NORHaL HOOE 

HANG ON CHFCKSUM ERROR 



R04 
R04 
Ron. 
R04 
R04 
R04 
Rpt 
R04 
R04 
R04 
RC4 



H0G33330 
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3«H3 
3^1<t 


* 
* 










3415 


* 






OOIECCI 




3»H6 




ALIGN 


4 


OOlECCl 


0000 


3417 


LOW 


DC 


X»OOOQ»,X*0000» 


OOlECEl 


0000 


3fi8 


* 






OOIEDOI 




3419 




ALIGN 


4 


OQlc-nn T 


0000 


-3420 


HiSH 


DC 


y •0000* ; vinnQO* 


ooiEoai 


0000 


3421 


* 






OulEDSl 




342a 




ALIGN 


S 


001ED8I 


0000 


3423 


ouToev 


DC 


X'0000»,x»0000« 


OOIEDAI 


0000 










OOlEOCl 


0000 


3424 




DC 


X'OOOO'.X'OOOO' 


OOIEDEI 


0000 


3425 


* 






OOIEEOI 




3426 




ALIGN 


8 


OOlEEOI 


0000 


3427 


InDEV 


DC 


X«0000»,X»OO0O« 


001EE2I 


0000 










OOiEEfl 


0000 


34pe 




DC 


X'OOOO'.X'OOOO' 


001EE61 


0000 


3429 


* 






001EE6I 




3430 




ALIGN 


4 


001EE8I 


FFFF 


3431 


PgHOPn 


DC 


X'FFFFt 


OOlEEAl 


FFFF 


3432 




DC 


X'FFFF' 


OOIFECI 


FFFF 


3433 


pghipn 


DC 


X'FFFF' 


OOIEEEI 


FFFF 


3434 




DC 


X • FFFF • 




0000 lEEFl 


3435 
3456 


LNZB 

* 


EOU 


«-l 


OOIEFOI 




3437 




ALISN 


a 


OOlEFOI 




3458 
3439 


INBUF 

* 


DS 


50 


001F28I 




341*0 




ALIGN 


8 


00lF2aI 




34iH 
3442 


cno 

♦ 


DS 


e 


001F30I 




3443 


FFBUF 


DS 


51 


001.P68I 




3444 




ALIGN 


8 


ootFsai 




3445 


POB 


DS 


51 




OOOO 1F63I 


3446 


seSnah 


EQU 


PD8 


0C1F9CI 




3447 




ALIGN 


4 


001F9CI 




3448 


urtbuf 


DS 


256 


00209CI 




3449 


DiRPRIi 


DS 


8 


0020A'+I 




3450 


NXTPRM 


OS 


8 


0020ACI 




3451 


DIRECT 


DS 


256 


0021ACI 




3452 




ALIGN 


4 


0Q21AC1 




3453 


DCOPY 


OS 


8 


0021B<*I 




3454 


ADORES 


OS 


4 


0021B8I 




3455 


FADO 


DS 


4 


0021BCI 




3456 


WrTEND 


DS 


4 


0021C01 




3457 


pghnuh 


DS 


4 


ooaicti 




3458 


TR«OEN 


DS 


4 


002icai 




3459 


flAXCYL 


DS 


4 


0021CCI 




3460 


MISTRN 


OS 


4 


0021DOI 




3461 


UPDTRN 


DS 


4 



MDG33850 
H0G33860 
HOG33870 
MDG338eo 
I"IDG33690 

MDS33900 
«0S339l0 
HDS53920 

nDG5393D 
WD53394D 
MDe33950 

HD533960 

i<IOS33970 
n0633980 
WDS33990 

|«|OG34000 

MDR34010 
HDG34020 
M053405G 
WOG34040 
HDG54050 
nDe34060 
HDG34070 
HOG34080 
nDG34090 
MOG34100 
M0S34110 
HDG34120 
nOG34l30 
KDG34140 
MDG34150 
HOG34160 
*OG34170 
I«IDG34180 
HOG34190 
MDG34200 
HDS34210 
MDG34220 
HDG34230 
MDG34240 
WDG34250 
H0e34260 
P10G34270 
HDG34280 
MDG34290 
M0G34300 
MOG34310 
MOG34320 
HDG34330 
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0021D4I 
0021DSI 
OOaiDCl 

ooaiEoi 
ooaiEti 

0031E8I 

ooaiEci 

0021F0I 
0021FM-I 
0021F6I 

ooziFai 

0021FaI 
0021FCI 
0021FE1 
0022001 
0022021 
0022041 
0022061 
0022081 
00220AI 
00220CI 
00220f I 
0022101 
0022121 
00221UI 
0022161 
0022181 
00221AI 
00221CI 
00221EI 
00?220I 
0022241 
00222tl 
00222AI 
0022301 
0022361 
0022381 

0022381 
0022401 

002440I 



3462 


CPtFLG 


OS 


4 


3463 


DTOONE 


OS 


4 


3464 


ST&OO 


OS 


4 


3465 


EOVRTN 


OS 


4 


i'*e,(, 


ivARTN 


OS 


4 


3467 


OlRPRN 


OS 


4 


3468 


DiRTM 


OS 


4 


3469 


PG^^UPN 


OS 


4 


3470 


CONSTA 


OS 


2 


3471 


FF8FFL 


OS 


2 


3472 


MTCMD 


DS 


2 


3473 


BKSPFL 


OS 


2 


3474 


SCf'AP 


OS 


2 


3«^75 


loFLAG 


OS 


2 


3476 


CYl- 


OS 


2 


3477 


HEAO 


OS 


2 


3478 


DISCMD 


OS 


2 


3479 


SrLINO 


OS 


2 


3480 


SELERR 


DS 


2 


3481 


EOJFLG 


OS 


2 


3482 


RETRY 


OS 


2 


3483 


CUTRKDEN 


OS 


2 


3-484 


CuMftXCYL 


OS 


2 


3485 


inTaod 


DS 


2 


3486 


COPSEC 


OS 


2 


3f87 


LSTBLK 


OS 


2 


3486 


NUHBLK 


DS 


2 


3489 


CURBLK 


OS 


2 


3490 


RUDEV 


DS 


2 


3491 


UPOFLG 


DS 


2 


3492 


AVAFLG 


DS 


2 


3493 




ALIGN 


4 


3494 


DIMOST 


DS 


6 


3495 


DIDOIN 


OS 


6 


3496 


DIDOOU 


OS 


6 


3497 




IFNZ 


ADC-2 


3498 




ALIGN 


8 


3499 




ENDC 




3500 


olDpsw 


OS 


8 


3501 


regsav 


DS 


512 


3502 


-* 






3503 




END 





LAST COPY BLOCK LENGTH 
NUMBER OF FULL BLOCKS 
CURRENT SLOCK SIZE 



HOG34340 
n063435Q 
MDS34360 
MDS34370 
1»DG34380 
MDS343go 
(«OS34400 
HO534410 
F0G34420 
1>1DG34430 
MOG34440 
»'OS34450 
MDG34460 
M0G34470 
MDG34490 
HDG34490 
WDG34500 
HOG34510 
HOS34520 
HOS34530 
WDG34540 
HD634550 
W0G5456C 
HQ634570 
MOG34560 
MOG34590 
MDG34600 
nDG346lQ 
MDG34620 
HOG34630 
M0S54640 
VD634650 
KOG34&60 
WDG34670 
»t06346a0 
HOG34690 
HO634700 
KOG34710 
HOG34720 
MOS34750 
«OG34740 
M0G3475D 
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NO CflL 


ERRORS 


NO CAL 


WARNINGS 


b PASSES 




TABLE SPACE USED • 


abstop 


0000 


0000 


ADC 


0000 


0004 


addrEs 


0000 


218*1 


arflt 


0000 


1BA6I 


ASCI 


0000 


iCCifl 


AST 


0000 


195CI 


AVACON 


0000 


12DEI 


AVACTN 


0000 


130*1 


ftVACYl 


0000 


133CI 


4VAEN0 


0000 


13«|.6I 


AVAFL6 


0000 


22201 


AVAIOO 


0000 


12C81 


AVAIL 


0000 


lOFtl 


AVAILO 


0000 


1276J 


AVAILI 


0000 


12ECI 


AVAILff 


0000 


12961 


AVAlLi^A 


0000 


12B2I 


AVAILS 


0000 


12801 


A1/AIL6 


0000 


13101 


AVAILS 


0000 


126EI 


AUAILW 


0000 


12761 


AVALLl 


0000 


127CI 


ava.mcy 


0000 


13261 


avartn 


0000 


21E'H 


aVAWRT 


0000 


12FCI 


BBFB 


0000 


0350f 


HEGIN 


0000 


OO^CI 


■^F 


0000 


03(+'*I 


RFTT 


0000 


o^sm 


oFITl 


ocoo 


0*6Sl 


f^FITi* 


0000 


0*761 


SKFH 


0000 


18A7I 


9KFMNH 


0000 


19SEI 


■5KSP 


0000 


16ADI 


BKSPFU 


pono 


21FA1 


-^NDYERR 


0000 


IBFOI 


eOOTE'J 


0000 


lECAl 


=?0V 


0000 


19B2I 


C300ADR 


0000 


OOlEI 


CAR2N0 


0000 


003EI 


CARRD 


0000 


003CI 


CARR82S 


0000 


00(1.81 


CHKl 


0000 


OFBOl 


CHK2 


0000 


OFDAI 



16K 



7 


10* 


23* 


2166 


2172 


2187 


219* 


2205 


2958 


30*8 


306* 


3075 


3092 


3110 


3120 


3*97 


2838 


2859 


3*5** 












2977 


30*** 














3175* 


3iaT 














106 


2558 


2638* 












180* 


1805 


1808* 












1817 


1820* 














183* 


183S 


1838* 












1823 


1830 


18*1* 












1772 


1777 


1813 


3*92* 










1796 


1801* 














1601 


1632* 














1011 


130* 


16i»3 


1650 


177** 








1790 


1812* 














1786* 


1793 


1800 












1785 


179** 














1780* 


ISll 














1822 


182** 














1108 


1129 


12*7 


1278 


1770* 








1775* 
















1773 


1778* 














1826 


1831* 














1779 


ISifl 


3*66* 












181* 


1818* 














*20 


4l»8» 














78* 


30*1 














203 


*17* 














507 


525* 














527* 
















528 


531* 














529 


533 


538 


639 


956 


2525* 






526 


530 


53* 


2686* 


2692 








522 


931 


939 


1200 


1*70 


2260 


2273 


253*: 


*19 


5?7 


532 


3*73» 










299* 


3081* 














3286 


3287 


3312 


3313 


33l5 


3325 


3326 


3328 


2696 


2701* 














*3* 
















66* 
















65* 
















73* 
















1530* 


153* 














15*2 


15*5* 


15*9 













2310 25l7 2326 2885 2909 



339* 3in0* 
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CHKCMD 


OOoa 032AI 


354 


357* 








CHKIOI 


0000 03141 


337 


35l» 








CHKIOF 


OQOO 02DCI 


306 


334* 








CLEAR 


0000 iSRl*! 


505 


677 


2545* 


2546 




CLIFZND 


0000 00361 


62* 










CUlFADft 


0000 0D16I 


39« 










CLIFRD 


0000 OOS^I 


61* 










CMO 


0000 1F28-, 


150 


151 


152 


154 


160 169 172 175 3441* 


CMOAA 


0000 OluSi 


157 


159 


165* 






CHOftAl 


0000 OltAI 


166* 


170 


173 


176 




CHDAB 


0000 012EI 


155* 


162 








C0N2ND 


0000 002CI 


57* 


91 


2594 






CONCMD 


0000 002EI 


58* 


86 


88 


90 




CONOSl 


0000 1738T 


2328 


2333* 








rONOSS 


0000 173CI 


2335* 










CONWTI 


0000 16341 


2226* 


2229 








C0NHT9 


0000 164EI 


2231 


223t* 








conhtx 


0000 16341 


2217 


2221 


2225* 






conraor 


0000 00261 


53* 


85 


118 


2593 


2598 


rONRO 


0000 002A1 


55* 


5fe 


89 


119 


2599 


CONROaS 


0000 00441 


69* 










CONSTA 


0000 21F4I 


1406 


1788 


2337 


2871 


3470* 


CONTta 


0000 15D6T 


2171* 










CONT<tC 


0000 150AI 


2175* 










C0NT5A 


0000 16101 


2201 


2204* 








C0NT5B 


0000 16181 


2144 


2158 


2162 


2207. 


22l3* 


CONTOS 


0000 17301 


2323 


2325* 








CONUAOR 


0000 00281 


54* 


83 


124 


2618 




CONWRT 


0000 002BI 


56* 


87 


95 


125 


2619 


COPOVE 


0000 OAFOI 


1138 


1140* 


1287 






COPMTI 


0000 oe9Ei 


933* 


1018 








COPSEC 


0000 22141 


974 


lOlO 


1016 


3486* 




COPY 


OQOO 07121 


205 


809* 








COPYl 


0000 07921 


827 


844* 


943 


947 


1226 


C0PY2 


0000 07A4I 


647 


850* 








COPYA 


OOQO 07401 


813 


823* 








COPYEV 


0000 0760T 


818 


831* 








CP YFLG 


0000 21D4I 


971 


1256 


1495 


1644 


3462* 


CPYHOR 


0000 07141 


811. 


822 


843 






CREA 


0000 0F401 


200 


1493* 








CREAl 


0000 0F64I 


1500 


ISO"** 








CREA3 


0000 0F6EI 


1507* 


1527 








CREA** 


0000 lOSAI 


1595 


1596* 








CREA6 


0000 108CI 


1599* 


1612 


1623 






CREAER 


0000 11501 


1498 


1503 


1656* 






creaxy 


0000 IOaEI 


1604 


1609* 








CRECHK 


0000 OFAAI 


1524 


1526* 








CREOIS 


0000 103CI 


972 


1257 


iS55 


1575* 




CRLF 


0000 18BCI 


103 


542 


2276 


2557* 


2662 2695 3102 3127 3192 


CRT2N0 


0000 00321 


60* 










CRTRD 


0000 0030T 


59* 










CRTR02S 


0000 00451 


70* 










CUHAXCYL 
CUHHLK 


0000 2S10I 
0000 221AI 


1649 
893 


1651 

916 


3484* 
964 


1003 


1128 1234 1277 1302 3489* 


cutrkoen 


0000 220EI 


1179 


1614 


1719 


1783 


2284 2414 2469 2777 3485* 



rt«0 GENERATOR 06-l77F02R0itH91A13 



PAGE 69 15S13S57 11/13/31 



CYL 


0000 


22001 


CYLTAB 


0000 


032EI 


OCOPY 


0000 


21 AC I 


nELCHR 


0000 


oirar 


nEVOU 


0000 


1C6EI 


DICOHN 


0000 


0BD2I 


niDO 


0000 


0C4AI 


niDOii 


0000 


0C90I 


nlDOix 


0000 


0CF6I 


DI002X 


0000 


0CD6I 


DIDOEE 


0000 


0D38I 


DIDOIN 


0000 


222AI 


OIOOLB 


0000 


OCEOI 


OIDONL 


0000 


OCFOl 


DIOOOU 


0000 


223QT 


DIMO 


0000 


0A6CI 


niHol 


0000 


0AA2I 


Dinoix 


0000 


0C32I 


0IH02X 


0000 


OACCl 


DIMOEE 


0000 


0BB2I 


niMOEV 


oono 


5C26I 


01H0L8 


0000 


OA08I 


:5IH0NL 


0000 


OAESI 


0I«0N?1 


0000 


0C121 


DIHONX 


0000 


OAAEl 


OIHOP'J 


0000 


08901 


DinoPS 


0000 


0B2AI 


nllOPP 


0000 


0B7EI 


IIHOSA 


0000 


OBaSi 


DIMOSH 


0000 


0B76I 


DIMOSP 


0000 


OSflCl 


niMOST 


0000 


222'*T 


DIRECT 


0000 


20ACI 


|)IRFUL 


0000 


icati 


■'IRPGH 


0000 


ltD2l 


tlRPRrt 


0000 


209CI 


iJiRPRN 


0000 


21E8I 


niRTN 


oooo 


21ECI 


niSaBt 


0000 


18AAI 


DISC 


0000 


15CCI 


niSCHD 


0000 


2204T 


DIVFLT 


0000 


1BF6I 


DREAD 


0000 


18B6I 


nsCEND 


0000 


176AI 


OSCERR 


0000 


17521 


OSERRl 


0000 


17601 


DSPCWD 


0000 


0A6AI 


DTDONE 


0000 


21D8I 



549 


114'f 


1150 


1252 


1261 


1265 


1292 


1295 


1310 


1317 


1327 


1333 


1390 


lt29 


1433 


1436 


1561 


1636 


1666 


1675 


1801 


1808 


1831 


1838 


1903 


1989 


2001 


2009 


2290 


2784 


2789 


2790 


2646 


3476* 












347 


358* 


1803 


1833 




















1146 


II47 


1149 


1151 


1155 


1164 


1192 


1205 


1986 


1988 


1990 


1991 


1997 


1998 


2000 


2007 


3453* 




















135 


18 0* 
























2227 


2336 


2681 


2688 


2812 


3134* 
















1203« 


134& 
























857 


1239* 
























1255 


1258* 


1305 






















1279 


1289* 
























1277# 


1286 
























1288 


1306* 
























1249 


I25I 


1253 


1264 


1266 


1266 


1289 


1291 


1293 


1307 


1309 


1311 


1332 


1334 


1336 


3495* 






















1272 


12S0« 
























1282 


1287* 
























1258 


1260 


1262 


1294 


1296 


1298 


1326 


1328 


1330 


3496* 








856 


1099* 
























1113 


1H6« 
























1130 


1230* 
























1128* 


1137 
























1139 


1195* 
























1207 


1209 


1227* 






















1123 


1131* 
























1153 


1138* 
























1211 


1215 


1221* 






















1119* 


1237 
























1181 


118** 
























1155* 


1183 


1191 






















1154 


117»* 
























1186 


1192* 
























1167 


II7I 


1176* 






















1175 


1193* 
























1141 


1143 


1145 


1166 


1168 


1172 


3494* 














556 


563 


568 


1160 


1161 


1165 


1169 


1173 


1208 


1212 


1222 


1224 


1322 


1323 


1342 


1343 


1588 


1594 


1599 


1605 


1617 


1635 


1637 


1639 


1679 


1682 


1685 


1690 


1692 


1694 


17O0 


1712 


1722 


1735 


I9I0 


1916 


1921 


1924 


1934 


1954 


195^ 


1959 


1962 


1969 


2002 


2008 


2010 


2012 


3451* 








592 


1627 


3142* 






















1105 


124"* 


1995* 






















1313 


1315 


1633 


1634 


1640 


1671 


1673 


1676 


3449* 










1996 


20l3 


3467* 






















1140 


1193 


3468* 






















502 


673 


1464 


2120 


2530* 


2531 
















2106 


2164* 
























2100 


2301 


3478* 






















3083* 


























2097 


2302 


2546* 


2549 




















2341 


2349* 
























2339 


2342* 
























2343 


2346* 
























lOeo 


1095 


1098* 






















1664 


1705 


3463* 
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HTROON 


OOOQ 


11581 


DTRIP 


0000 


11321 


OWRIT 


0000 


18831 


fmtrd 


oooo 


16001 


FOJ 


0000 


177CI 


FOJFtG 


0000 


220AI 


c-OV 


0000 


16A8T 


eowrtn 
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aiEoi 


i-OVX 


0000 


OtACi 


rRPT 


0000 


1CB6I 


ERPTOO 


0000 


1C8EI 


erptss 


0000 


ICCOl 


frr 


0000 


ICDET 


FRRt 


0000 


ICE"*! 


FRRA. 


0000 


ICO'tl 


ERRa 


0000 


1C08I 


ERRC 


0000 


icoci 


ERROR 


0000 


ICIOI 


FRRPSW 


0000 


1CH8I 


ESRO 


0000 


17201 


ESREAO 


0000 


18B9I 


rsToP 


0000 


18BAI 


ESHRT 


0000 


18A9I 


EV 


0000 


0580T 


EVl 


0000 


059AI 


FVMT 


0000 


O5B0I 


FADO 


0000 


21881 


PF 


0000 


03<tEl 


FFBFl 


0000 


0<»1E1 


PFBFEO 


0000 


051CI 


ffbffl 


0000 


21F6I 


FFBUF 


0000 


1F30I 


FFCOn 


OOOQ 


OS?"*! 


FFCOMI 


0000 


03E61 


FFOISC 


0000 


04R2I 


FFDSl 


0000 


04E2I 


FFDSlft 


0000 


0'*CE1 


FFDSlB 


0000 


OtCAI 


FFOSCl 


0000 


05281 


PFDSC5 


0000 


05021 


FFEOV 


0000 


04881 


FFIT 


0000 


03EC1 


FFITl 


0000 


0t06T 


FFIT2 


0000 


040EI 


FFIT3 


COOG 


04261 


PFHORE 


0000 


03821 


FRSERR 


0000 


1A201 


FRSRW 


0000 


IfllOI 


FWFH 


oono 


isa6i 


GETCHR 


0000 


19661 



1017 
1648* 
2099 
2185 
2277 
111 

3>>ei« 

642 
2114 
543 
3103 
3101 
3099 
3177 
3184* 

630 

1837 

2819 

2401 

2408 

849 

3117 

2304 

2195 

2554» 

2168 

204 

628 

633 

2177 

202 

506, 

574 

448 

511 

459* 

454 

504 

562* 

556* 

555* 

566 

524 

513 

465 

496 

499 

see* 

463* 
2813 
553 
1708 
509 
155 
756 



1331 

1652 
2543* 
2193* 
2358* 

1479 
2251 

546* 
3171* 
3172* 
3173* 
3179 
3191 
830 
1665 
2823 
2456 
2463 
1657 
3ll9« 
2316* 
2318 
2914 
2311 
622* 
631* 
637* 
2922 
446* 
517 
578* 
477 
5l2 
49I 
490* 
547* 
58'^ 
588 
595 
570 
571* 
536* 
492* 
5qO» 
502* 

■JO~ 
474 

2816* 

11S6 

1711 

25a'>* 

239 

811 



1653 1663* 



624 

1574 
3465* 

3193 
^188 

3181* 

880 
1919 
3138 
3178* 
3180* 
1743 



2552* 
2528* 

3455* 

521 

506 
516 



581* 



659 



2266* 



865 



963 1102 



1241 



1382 



1463 



1562 



1577 



3105 



911 924 
1949 2223 
3140 3143 



1002 
2233 
3176* 



1115 
2256 



2384 



24l2 



2439 2467 



1177 

2345 



3099. 



1454 
2355 



1460 
2389 



1559 

2393 



1597 
2444 



1807 
2448 



541 

540 
519 



596 

3443< 



3471* 



489 

1159 1318 

1782 1909 
2525 
300 325 

836 2656* 



1321 
2349 

451 



1338 1341 
2809* 2814 



459 



463 



1393 
2850 

482 



14Q2 



660 



I44A 

712 



1585 1696 1699 



728 



739 



745 
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5032 


0000 


1AE2I 


HDTA8 


0000 


05721 


HEAD 


00 00 


22o2t 


HIGH 


0000 


lEDOI 


HIPRT 


0000 


022'H 


IDEVDU 


0000 


1C7CI 


IDWT 


0000 


0DF4I 


ILLADO 


0000 


1A2EI 


ILLIST 


0000 


IBAEl 


IHPTOP 


0000 


2'HtOl 


IN 


0000 


033CI 


IN8UF 


0000 


lEFOl 


IMOEV 


0000 


lEEOI 


INIT 


0000 


OD08I 


INIT32 


0000 


1B66I 


INITSK 


0000 


0E22I 


INITZF 


0000 


OElAI 


INNAHE 


0000 


oiaci 


INTADD 


0000 


2212T 


INTAPE 


0000 


0EE8I 


IMTC0« 


occo 


18701 


IMTER 


0000 


ICOEI 


INTPl 


0000 


0EF8I 


10 


0000 


OOlOX 


ioflag 


0000 


21FEI 


I0FUN2 


0000 


028Cr 


TOVOU 


0000 


IBFCI 


ISAF 


0000 


1C92I 


ISHXCO 


0000 


icsci 


rsNu« 


0000 


ICACI 


JABT 


0000 


1C60I 


L40C 


0000 


0002 


•CORE 


0000 


lADEl 


LIOl 


0000 


iSOflT 


LlDlA 


0000 


18181 


LI02 


0000 


18261 


LIC3 


0000 


181*01 


LlOt 


0000 


16561 


LI05 


0000 


186'+I 


LIOAD 


0000 


17FAI 


LIMITS 


0000 


01E6I 


LINK 


0000 


OOOF 


l_NZB 


0000 


lEEFI 


LODl 


0000 


17901 


LOOIA 


0000 


17A01 


U0D2 


0000 


17AEI 


L0D3 


0000 


17CSI 


LOD^ 


0000 


170EI 


L0D5 


0000 


17ECI 


LODAD 


0000 


17821 



2963* 


3ooO 
























591 


606* 


1185 


1423 


1626 


1730 


1795 


1825 


1941 


1977 








555 


589 


1142 


1146 


1184 


1188 


1250 


1259 


1267 


1290 


1297 


1308 


1314 


1329 


1335 


1404 


1422 


1435 


1427 


1438 


1587 


1625 


1639 


1632 


1638 


1668 


1672 


1729 


1733 


1794 


1798 


1810 


1S24 


1828 


1840 


1905 


1940 


1944 


1976 


1980 


1987 


1999 


2011 


2288 


2296 


2780 


2844 


2852 


3477* 








256 


265 


1526 


1533 


15fi7 


1647 


3420* 














245 


253* 
























3136 


3139* 
























1386* 


1386 
























2817 


2822* 
























2969 


3046* 
























3503 


























197 


387* 
























1X<^ 


136 


185 


2658 


3438* 


















368 


846 


2436 


2449 


2457 


2464 


2470 


3427* 












206 


1378* 
























2962 


2999* 
























1400* 


1434 
























1398* 


1399 
























167 


I7l 


174 


178 


179 


196* 


196 


197 


198 


199 


200 


201 


202 


203 


204 


205 


206 




















2888 


2911 


3485* 






















1380 


1455* 
























2996 


3025* 
























3036 


3091* 
























1458 


1461* 
























36* 


80 


62 


84 




















494 


573 


3475* 






















322* 


























2987 


3085* 
























3158 


3162* 
























246 


310 


326 


471 


722 


743 


75n 


819 


1082 


1086 


1090 


3151* 




3154 


3160* 


3163 






















3128 


3132* 
























33 


2957* 
























2437 


2440* 
























2442 


24if5* 
























2446 


2449* 
























2450 


2454 


2457* 






















2458 


2461 


2464* 






















2465 


2466* 
























501 


66'* 


828 


851 


869 


884 


934 


964 


975 


110* 


1119 


1204 


1243 


1263 


1337 


I860 


2436* 




















198 


22^* 
























32* 


2578 


2584 


2586 


2614 


2633 
















3435* 


























2382 


2365* 
























2387 


2390* 
























2391 


2394* 
























2395 


2399 


2402* 






















2403 


2406 


2409* 






















2410 


24l3« 
























498 


625 


631 


670 


845 


854 


859 


875 


914 


926 


1005 


lOlB 


1110 
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lofrhi 

LOHI 

LOHIl 

LOHIEN 

LOHIKI 

LQHIK2 

LOKIN 

LOKOUT 

tPAOR 
LPWRT 
LSTBLK 

MaXCYU 

rtCHl 

siCHHAL 

fICHPSW 

1ICR08US 

MIDO 

■ilDOl 

MiOOll 

-iiDoax 

MIOOEN 

MIOOER 

IIDOFH 

"•lIDOl-8 

1ID0NL 

MIHO 

MIHOl 

N1I*I02X 

MIHOEN 

flIMQER 

MIMOEV 

■llHOFH 

MIHOLB 

NilHoNL 

«IHONX 

•irSTRN 

MISTRT 

MREADC 

MTBOOT 

«TB00T1 

rtT800T2 

MTCWO 

MTCOH 

-!TEnD 

HTERR 

.ITERRI 

MTERRB 

MTERRW 

WTIN 

NTLOADIO 

HTLOADll 

!V|TL0A012 



OOOU OAQIH 
0000 OXECI 
0000 QlFtl 
0000 023'*T 
0000 09DC1 
0000 OAOEI 
OOQO 19331 
0000 ISC'*! 
0000 lECCI 
0000 OOlAI 
OOQO 00S8I 
0000 22161 
0000 1C02I 
0000 21C8I 

0000 iBoai 

0000 1BB6I 
0000 IBOOI 
0000 00221 
0000 090"*! 
0000 096AI 
0000 092EI 
0000 09521 
0000 09A61 
0000 09621 
0000 Q87AI 
0000 09621 
0000 09721 
0000 07CCI 
OOQO 06621 
0000 082AI 

oooo osa2i 

0000 085AI 

0000 oeeci 

0000 087AI 
0000 063AI 
0000 084AI 
0000 080AI 
0000 21CCI 
0000 09B6I 
0000 OOttQI 
0000 1D061 
0000 1D16I 
0000 10461 
0000 21F8I 
0000 154AI 
0000 16A2I 
0000 165CI 
0000 168CI 
0000 15C2I 
0000 167EI 
QOOO 07BEX 
0000 1E701 
0000 lt7<H 
0000 1E80I 



1195 

lOtO 
232* 
239* 
2<t3 

106't 
98 
97 
230 
tl* 
63* 
898 
2990 
349 
3066 
2972 
3053 
i>5* 
862 
987 
97 U 
964* 
999 
894 
967 
979 
990 
861 
896 
893* 
906 
910* 
937 
872 
888 
899 
884* 
1036 
874 
67* 
1472 
3210* 
3227 
2112 
2110 
2238 
2106 
2254 
2143 
2247 
653 
3364 
3377* 
3382* 



989 



l23l 

IO4I 
257 
251 
258* 

1048* 

1066* 
500 
497 
260 



902 
3087» 
3459* 
3070* 
3049* 
3063* 



96l* 
lOO*** 

973* 1012 

994 
101*** 

985 
1013* 

988* 

995* 

853* 

9l3» 

9o3 

926* 

954* 

922* 1013 
897* 
90*^* 
921 
1096 
969 



1254 1299 
1061* 



684 958 
635 641 
263 264 



1312 



1378 



1550 



1554 



1579 



lag"* 



2381* 



1227 

15n6 



2720* 

1202 

1529 



1451 
1566 



1478 

1646 



993 



1048 1066 1132 1136 



1572 

3417* 



1261 



1665 2740* 



1285 



3487* 



1001* 



I47S 
3213 
3232* 3235 



3460* 
1035* 1109 

3204* 3235 



1248 



2126 
2ll2* 
226'^* 
2236 

2257* 

2157 

2250 

858* 
3368 
3381 
3384 



2182 



2214 2244 3472* 



2240* 2243 

2160* 
2253* 

3374* 
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^TLOADIS 


0000 


1E9AI 


3386 


3390* 
















i^TLOADm 


0000 


1E9CI 


3391* 


3393 
















NTL0AQ2 


0000 


iDsai 


3271* 


3273 
















MTL0AD3 


0000 


10961 


3277» 


3279 
















MTLOADl* 


0000 


109EI 


3275 


3286* 
















MTL0AD5 


0000 


10C2I 


3296 


3301* 


3306 














MTL0AD6 


0000 


lODtl 


3300 


3309* 


5311 














!»iTL0AD6A 


0000 


1DF6I 


3316 


3323* 
















HTL0AD6B 


0000 


1DF8I 


3322 


3324* 
















HTL0AD7 


0000 


1E121 


3331 


3335* 


3373 














MTL0AD7A 


0000 


1E22I 


3310 


3542* 
















MTLOADa 


0000 


1E3CI 


3349 


335'** 


3359 














•OTLOA09 


0000 


1E4AI 


3353 


3360* 


3370 














MTU0A09A 


0000 


1E54I 


3363* 


















MTL0AD9B 


0000 


1E5AI 


3362 


3366* 
















MTLOADgc 


0000 


1E62I 


3365 


3369* 
















MTLOADE 


0000 


1EC9I 


1<*76 


3216 


3409* 














'ITLOAOS 


0000 


105AI 


l'>75 


32l6 


3255* 


3286 


3287 


3312 


3313 


33l5 3325 


3326 3326 3373 3394 


i^TLOAOSO 


0000 


1D66I 


3259* 


3261 
















"ITLOADSI 


0000 


106*1 


3266 


3269* 
















MTRS 


0000 


iSAdl 


21f8* 


2153 
















•flTREAD 


0000 


18B7I 


2111 


2127 


2163 


2215 


2245 


2549* 








JlTRY 


0000 


15661 


2122* 


2262 
















MTWB 


0000 


15861 


213t* 


2139 
















'J!T«RT 


0000 


16401 


2109 


2527* 


2526 














^JEDNWl 


0000 


123AI 


1721 


1729* 
















?JEEONW 


0000 


llFtl 


1668 


1707* 
















MOECHOl 


0000 


OOpiH 


132 


13t* 
















MOEOd 


0000 


1C38I 


3107 


3109* 
















NOHOl 


0000 


189EI 


2509 


25l5* 
















WOMORE 


0000 


16901 


21*98 


2499 


2507* 














iilOMOTN 


0000 


19601 


5iu 


523 


537 


539 


638 


640 


678 


680 928 


930 932 94(1 955 








957 


1197 


1199 


1201 


1469 


1471 


2259 


2261 2270 


2272 2274 2680* 2663 


'JORUN 


0000 


162CI 


1468 


2222* 
















'\!OT3200 


0000 


IBCSl 


3051 


3055* 
















WUH8LK 


0000 


22181 


867 


891 


976 


982 


1059 


1076 


1122 


1126 1271 


1275 3488* 


jU'MTHERE 


0000 


12661 


1606 


1742* 
















fvXDRl 


0000 


10O6I 


1622* 


















i^JXDRHD 


0000 


lODCl 


1616 


1625* 
















^jXREAl 


0000 


lOCH 


1617* 


1631 
















i^jXTnlR 


0000 


10B8T 


1613* 


















MXTPR^ 


0000 


20A'H 


1667 


1669 


1670 


1689 


1691 


1693 


3450* 






OLOPSW 


0000 


22361 


2980 


3500* 
















OTC.O 


0000 


18F6I 


2595 


2597* 


2604 


2613 


261:5 










OTC.l 


0000 


190tl 


2603* 


















0TC.2 


0000 


190EI 


2602 


2606* 
















0TC.3 


0000 


19201 


2609 


26l2* 
















OTC.t 


0000 


193CI 


2621* 


2626 
















3TC.5 


0000 


19i*EI 


2628* 


2630 
















OUIN 


0000 


026EI 


300* 


319 


333 














OUlNl 


0000 


029fl 


306 


3lO« 
















0UIN2 


0000 


02A6I 


314 


3l6* 
















OUINA 


0000 


025A1 


292* 


389 
















ouinfl 


0000 


02BtI 


304 


320* 
















OUINL 


0000 


02621 


296* 


299 
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ouinx 


0000 02C2I 


325* 


331 
























OUT 


0000 02561 


196 


290* 
























OUTO 


0000 19521 


2622 


262H 


2631* 






















OUTl 


CODO 19521 


2632* 


























-;UTCHR 


0000 ISE"*! 


2576 


258'* 


2566 


2590* 




















nUTCHR2 


0000 192EI 


2605 


2611 


2617* 






















lUTOEV 


0000 lEDSl 


291 


3i»0 


1551 


2381 


2394 


2402 


24Q9 


2415 


3135 


3423* 








OUT*lX 


0000 03001 


3m 


iHH* 
























->ASLAOR 


0000 00127 


37* 


























f>AUSE 


0000 1961T 


2592 


2603 


2610 


261>* 


2617 


2640* 
















BBOV 

POB 


0000 19A2r 
mno 1F68I 


596 
870 


2690 
871 


2695* 
881 


882 


935 


936 


943 


945 


965 


966 


1037 


1038 


1049 


\J \J \J V *' i^^i»J- 


1051 


IO53 


1055 


1067 


1069 


1071 


1073 


IO8I 


1085 


1069 


1106 


IIO7 


1116 






1117 


1245 


1246 


1512 


1517 


1521 


1537 


I54n 


1546 


1563 


1564 


1641 


1642 


PEOJ 


OOOO 16C0I 


545 


3im6 
577 


580 


636 


685 


667 


953 


1220 


1452 


1655 


1731 


2276» 


2698 


PEOU 


0000 oitgci 


5t2* 


597 


960 


1229 




















pFAIL 


0000 IBEOI 


3056 


3072* 


3077 






















PFL 

PGllPN 


0000 1BE8I 
0000 lEECl 


305t 

575 

2723 


3072 

576 

31*35* 


307t* 
625 


949 


951 


1217 


1218 


1223 


1225 


1861 


1869 


1871 


2722 


pGnNun 


oono 21C0I 


H7Z 


1*79 


486 


487 


515 


518 


562 


567 


571 


572 


820 


833 


840 






81*1 


941 


91*'* 


948 


950 


1210 


1213 


1216 


3457* 










PG«10PN 


0000 1EE8I 


576 


579 


627 


1691 


1897 


1699 


2742 


2743 


3431* 










PGWUPN 


0000 21F0I 


1870 


1872 


1898 


1900 


1922 


1925 


3469* 














PJABT 


0000 1C50I 


3122 


3ia7* 
























PN3S 


0000 OEEOI 


1<H0 


l«t53» 
























PRINT 


0000 1SC6I 


101 


109 


5i*«> 


2278 


2559 


2576* 


2697 


3104 


3129 


3194 








PRINT2 


OOOO 18C6I 


2577* 


2562 
























PRINTS 


0000 18D6X 


2580 


2583* 
























PRINT3B 


OOOO 180EI 


2586* 


























PRNTEX 


OOOO 18E2I 


2587* 


























PSME 


OOOO ICIOI 


30"t5 


30«t7 


3071 


3062 


3084 


3086 


3088 


3090 


3098* 










puretop 


OOOO OOOOP 


3503 


























PWRON 


OOOO IBClH 


3052 


305t« 
























purup 

QUEST 


OOOO IBCOI 
OOOO 197**! 


3053* 
166 


3057 
2*1 


252 


254 


259 


267 


302 


309 


312 


3l5 


321 


335 


339 






352 


356 


«*57 


461 


467 


476 


478 


481 


484 


493 


669 


77if 


615 






B24 


832 


835 


838 


2657 


2661* 


3152 


3156 


3159 










OUST 
RO 


OOOO 19601 
OOOO OOOO 


2639* 
16* 


2663 
156 


158 


160 


167 


169 


171 


172 


174 


173 


240 


242 


244 




2<fe 


260 


261 


262 


263 


264 


265 


301 


303 


505 


311 


311 


313 






316 
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1419 


1437 


1437 


1438 


1582 


1562 


1613 


1615 


1630 


1630 


1634 


1635 


1636 


1637 


1636 


1639 


1670 


1673 


1718 


1720 


1734 


1734 


1764 


1791 


1792 


1799 


1799 


1809 


1809 


1810 


1820 


l82l 


1829 


1829 


1839 


1839 


1640 


1906 


1906 


1931 


1932 


1945 


1945 


1973 


1974 


1981 


1981 


1966 


1987 


1986 


19fl9 


1990 


1997 


2008 


2009 


2010 


2011 


20l2 


2287 


2296 


2843 


2854 


3328 


3399. 


3335 


3336 


3343 












25* 


347 


349 


3210 


3211 


3220 


3223 


3228 


3232 


3259 


326n 


3264 


3265 


3271 


3272 


^277 


3278 


32S9 


3290 


*292 


S297 


3301 


3S07 


3309 


3310 


3312 


3350 
3392 
26* 


3354 


3360 


3361 


3363 


3366 


iS367 


3369 


3382 


338? 


4386 


3367 


4*91 


452 


455 


494 


495 


495 


502 


5o5 


509 


522 


529 


533 


b38 


552 


639 


673 


677 


679 


846 


876 


927 


929 


931 


939 


956 


1111 


1158 


1196 


1198 


1200 


1320 


1340 


1386 


1392 


1401 


1440 


1456 


1464 


1465 


1<»66 


1470 


1555 


1584 


1698 


1710 


1781 


1908 


2120 


2131 


2134 


2l3fi 


2142 


2145 


2148 


2150 


2156 


2166 


2193 


2219 


2226 


2241 


2248 


2260 


2269 


2271 


2273 


2306 


2335 


2381 


2385 


2436 


2440 


2680 


2687 


2780 


2781 


2784 


2785 


2789 


2791' 


2811 


3049 


3049 


3055 


3055 


3135 


3176 










27* 


674 


674 


676 


13A3 


2122 


2122 


2165 


2169 


2171 


2173 


21?5 


2188 


2195 


2311 


2318 


2394 


2396 


2397 


2449 


2451 


2452 


2B87 


2914 


?i7a 




26* 


1384 


2281 


2287 


2292 


2293 


2299 


2309 


2316 


2402 


2404 


2457 


2459 


2782 


2786 


2791 


2809 


2843 


2848 


2855 


2856 


2869 


2672 


3180 






2542* 


2543 


2656 






















1407 


1787 


2838* 






















2841 


2650* 
























2859* 


























2849 


2656* 
























29* 


1551 


1552 


1566 


1646 


2494 


2500 


2501 


2510 


2515 








560 


1163 


1325 


1345 


1592 


1621 


1726 


1739 


1616 


1914 


1938 


2006 


2097* 


30* 


105 


231 


253 


253 


255 


258 


256 


542 


1567 


1647 


2276 


2495 


2511 


2560 


2662 


2696 


3102 


3127 


5192 















HHO GENERATOR OS-lTTFOgSO^HgiSlS 



PAGE 78 15{13!57 11/13/81 



REAQPB 


0000 


15461 


REDflB 


0000 


00C6I 


"^EDftC 


0000 


01161 


REDINB 


0000 


OOBAI 


REDPT 


0000 


OOAAI 


REDPTX 


0000 


oogei 


REDTTY 


0000 


009CI 


PEGSAV 


0000 


22401 


HFSET 


onoo 


18801 


-(ESTOR 


0000 


18B1I 


RETRY 


0000 


220CI 


REWIND 


0000 


16B51 


RF 


0000 


OOOF 


kW 


0000 


oscm 


SI HOE V 


0000 


221CI 


i^HDlSC 


0000 


060CI 


RWQ 


0000 


05CAI 


KWOl 


0000 


05FCI 


RWOPDS 


0000 


06161 


RWX 


0000 


Q50CI 


SCRAP 


oono 


21FCI 


SECTAB 


0000 


056m 


SEEK 


0000 


18AFI 


SELl 


0000 


16061 


SELDl 


0000 


17261 


SELQIS 


0000 


16O0I 


SELDISI 


0000 


17021 


SELDIS2 


0000 


16FSI 


SELERR 


0000 


22081 


SELINI 


0000 


lADOI 


SELIN2 


0000 


1A88I 


SELIN9 


0000 


1AD2I 


SELINO 


0000 


22061 


SELINT 


0000 


1AA4I 


SELSTl 


0000 


1AB2I 


SELWRT 


0000 


15CCI 


SEQ 


0000 


06201 


SEai 


0000 


06341 


SEQ2 


0000 


06661 


SE92A 


0000 


06061 


SEQ9 


0000 


066EI 


SEQ91 


0000 


06B6I 


SE999 


0000 


06CEI 


sfqnam 


0000 


1F68I 


SEQ2 


0000 


06221 


SETl 


0000 


06EEI 


SETCOH 


0000 


1A94I 


SETCON 


0000 


1A7AI 


SETCTL 


0000 


lAOFI 


setgap 


0000 


06F6I 


SCTHEAO 


0000 


lAOEI 


3ETSEL 


0000 


1A881 


SKP2ND 


0000 


00821 



514 
118* 
140 
114* 
109* 
101* 
102* 
3501* 
1384 
1392 
2103 
679 

31* 

667 

201 

2105 

672 

665 

675 

663 

663 

3474* 

587 

552 

2192 

2315 

2180 

2295 

2286 

2125 

2913 

2919* 

2924 

3479* 

2886 

2915* 

2123 

199 

712* 

716 

756* 

726* 

736 

734 

707 

1684 

706* 

763* 

2886* 

2333 

2785 

760 

2781 

220O 

93 



873 
14'^ 
149* 
117 

266'* 
138 

2539* 

2540* 

2116 

2546* 

293 

682 

657* 

2118 

68l* 

67l« 

677* 

686* 
666* 

599* 
1158 
2200* 
2322* 
2281* 
2300* 
2296* 
2161 
2928* 

2930* 

290^* 

2165* 
705* 
725 
726* 
765 
753 
747* 
746 
723 

2761 
710 
767 

2857 
2795* 

766* 
279t* 
2322 
95* 



895 909 938 968 986 IQOO 2lll* 
182 186 



266 350 357 758 2279 3112 3130 
2540 2872 

2253 2258 2342 2347 3482* 

342 344 344 348 349 



340 
682 



2179 3t90* 



458 



490 



586 590 661 



1180 1419 1615 1720 1784 1792 1821 1932 1974 

1320 1340 1401 1440 1584 1698 1710 l78l 1908 2537. 



2282 



2237 2340 2884 2926 2931 3480* 



2348 



754* 

741 744 751 763 77o 1*96 1501 1602 1606 1678 1681 
2762 3*t'*6* 



2868* 2870 



2882* 
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SOD 


0000 


004AI 


76« 


546 


1316 


1389 


1435 


1580 


1674 


1902 






SOP 


0000 


OOq-BI 


77* 


1430 


1432 


1447 














SRCENO 


0000 


0Ee4I 


1424 


1429* 


















SRCKl 


0000 


0E36I 


1*06* 


l»2l 


















SRCKlX 


0000 


OEStl 


1405* 


1428 


















SRCK2 


0000 


0E5CI 


1416* 




















SRCK"* 


0000 


QE6CI 


1420 


1422* 


















sread 


0000 


18B81 


2551* 


2552 


















^SS 


OO'^Q 


1C2SI 


5X0S* 


3195 


















STADD 


0000 


21DCI 


2176 


3464* 


















START 


OGOO 


OOOOI 


33* 




















stbkao 


0000 


18721 


1568 


164S 


2494* 
















STOP 


0000 


18ACI 


676 


1383 


2165 


2396 


2451 


2533* 


2534 








STORDR 


0000 


IICCI 


1695* 




















SVCERR 


0000 


1C081 


3025 


3089* 


















?5WRT 


0000 


18AEI 


2536* 


253T 


















TITLE 


0000 


195<H 


100 


2637* 


















trkden 


0000 


aicti 


348 


586 


590 


1417 


1873 


1901 


2413 


2468 


2839 


3458* 


TST80V 


0000 


05581 


56t 


596* 


















TSTEOV 


0000 


03AC1 


470 


475* 


















UPCHKCOH 


0000 


03021 


343 


345* 


















UPOCOH 


0000 


13S0I 


1874 


1902* 


















ijPOPtG 


0000 


221EI 


1868 


1896 


1951 


3491* 














UPOSPY 


0000 


0A30I 


1060 


1077* 


















UPOTUK 


QOOO 


llAAI 


1666* 


1728 


1741 
















JPDTPI 


0000 


14B8T 


1952 


1985* 


















UPDTPT 


0000 


13itCl 


1103 


1242 


1858* 
















UPDTRN 


0000 


21O0I 


1859 


1690 


1983 


5461* 














UPDTXI 


0000 


13F0I 


1917 


1920* 


1939 
















UPDTXa 


0000 


ItOAl 


1923 


1928* 


















UP0TX3 


0000 


13F2I 


1921* 


1930 


















UPOTXt 


0000 


14301 


1933 


1940* 


















UPDTX5 


0000 


ItlAl 


1934* 


1946 


















OPOTXM 


0000 


14461 


1942 


1947* 


















iJPDTXX 


0000 


138'*I 


634 


1578 


1889* 
















ijPFIEN 


0000 


ltB2l 


1978 


1983* 


1992 
















UPFINl 


0000 


lt62l 


1957* 


1961 


















JPFINO 


0000 


l'+4EI 


1927 


1950* 


















JPFI2F 


0000 


1<»86T 


1969* 


1972 


















UPPTl 


OODO 


13661 


1865 


1866* 


















UPXWBl 


0000 


1*^701 


1958 


1962* 


1975 


1982 














WBLKRO 


0000 


15A2I 


2129 


2145* 


















VDFT 


0000 


190EI 


551 


559 


1157 


1162 


1319 


1324 


1339 


1344 


1391 


1400 1406 1414 1439 








14f9 


1583 


1591 


1620 


1697 


1703 


1709 


1715 


1725 


1738 1780 1786 1815 








1818 


19o7 


1913 


1937 


1965 


2005 


2283 


2777* 


2842 


2651 


HDFTl 


0000 


19EEI 


2782* 


2763 


















W0FT2 


OODO 


19FAI 


2786* 


2787 


















iJDFT3 


0000 


lAOOI 


2779 


27S9« 


















WDFT"* 


0000 


1A08I 


2791* 


2792 


















vJOISC 


0000 


15201 


1415 


1450 


1704 


1716 


1819 


1966 


2099* 








WFM 


0000 


18ABI 


927 


929 


1196 


1198 


1465 


2269 


2271 


2531* 






WINIFO 


0000 


0E9AI 


1431 


1435* 


















■JRDSCl 


0000 


15241 


2098 


2100* 


















WRTlY 


0000 


10241 


1568* 


1571 


















wrtbuf 


oooo 


1F9CI 


S85 


905 


915 


976 


996 


1006 


1120 


1232 


1269 


1300 1398 1411 1443 
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I't'tH 


11H|5 


l'f46 


i«t4a 


3m»8* 








WRTENO 


0000 


ai9Ci 


2101 


2113 


2265 


2350 


Sit56» 








*RTPB 


0000 


153CI 


883 


920 


1118 


1236 


lit?** 


1<*77 


1565 


1569 


WRToOS 


0000 


lOOAl 


1557 


1560* 














JRTPRT 


0000 


I77<tl 


2308 


2353* 














WTMI«0 


OQOO 


07FET 


87a 


881* 














X9C 


0000 


1B78I 


3027* 


3030 














XBC 


0000 


ies6- 


3032* 


3035 














vCC 


0000 


1B961 


3037* 


3040 














yeseoj 


0000 


1C40I 


3106 


3116* 














7SEQ 


0000 


19D0I 


99 


952 


959 


1219 


1228 


1573 


165H 


2760 


ZS9£ST 


0000 


ObFCl 


7lt 


7l6 


720 


727 


730 


732 


738 


7l»8 


ZSQZ 


0000 


0702T 


770* 


773 















2107* 



755 



762 



768* 



